R语言 如何更改ggplot2中轴标签的小数位数?

tktrz96b  于 2023-06-19  发布在  其他
关注(0)|答案(4)|浏览(401)

具体来说,这是在facet_grid中。已经在谷歌上广泛搜索了类似的问题,但不清楚语法或它的去向。我想要的是y轴上的每一个数字,小数点后都有两位,即使后面的一位是0。这是scale_y_continuous或element_text或...中的参数吗?

row1 <- ggplot(sector_data[sector_data$sector %in% pages[[x]],], aes(date,price)) + geom_line() +
  geom_hline(yintercept=0,size=0.3,color="gray50") +
  facet_grid( ~ sector) +
  scale_x_date( breaks='1 year', minor_breaks = '1 month') +
  scale_y_continuous( labels = ???) +
  theme(panel.grid.major.x = element_line(size=1.5),
        axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.title.y=element_blank(),
        axis.text.y=element_text(size=8),
        axis.ticks=element_blank()
  )
ykejflvf

ykejflvf1#

?scale_y_continuous的帮助中,参数'labels'可以是一个函数:
标签之一:

  • NULL表示无标签
  • 对于转换对象计算的默认标注,allowance()
  • 提供标签的字符向量(必须与中断长度相同)
  • 一个函数,它将中断作为输入并返回标签作为输出

我们将使用最后一个选项,这个函数将breaks作为参数,并返回一个小数点后2位的数字。

#Our transformation function
scaleFUN <- function(x) sprintf("%.2f", x)

#Plot
library(ggplot2)
p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p <- p + facet_grid(. ~ cyl)
p + scale_y_continuous(labels=scaleFUN)

6jygbczu

6jygbczu2#

“scales”包有一些很好的函数来格式化坐标轴。其中一个函数是number_format()。所以你不必先定义你的函数。

library(ggplot2)
# building on Pierre's answer
p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p <- p + facet_grid(. ~ cyl)

# here comes the difference
p + scale_y_continuous(
  labels = scales::number_format(accuracy = 0.01))

# the function offers some other nice possibilities, such as controlling your decimal 
# mark, here ',' instead of '.'
p + scale_y_continuous(
  labels = scales::number_format(accuracy = 0.01,
                                 decimal.mark = ','))
6mw9ycah

6mw9ycah3#

#updating Rtists answer with latest syntax from scales
library(ggplot2); library(scales)

p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p <- p + facet_grid(. ~ cyl)

# number_format() is retired; use label_number() instead
p + scale_y_continuous(
  labels = label_number(accuracy = 0.01)
)

# for whole numbers use accuracy = 1
p + scale_y_continuous(
  labels = label_number(accuracy = 1)
)
x6yk4ghg

x6yk4ghg4#

有几个人建议使用scales包,但在这里,您也可以使用format()函数对baseR执行几乎相同的操作。

require(ggplot2)

ggplot(iris, aes(y = Sepal.Length, x = Sepal.Width)) +
  geom_point() +
  scale_y_continuous(labels = function(x) format(x, nsmall = 2)) +
  facet_wrap(~Species)

相关问题