小编Sam*_*090的帖子

大家好，我试图在 x 轴下方添加一些文本ggplot2，我能够使用geom_text和 的帮助来做到这一点coord_cartesian，但我无法使其可重现，因为这需要循环运行。我认为在表中添加我想要的行名称（第一，第二）的值可以解决这个问题，有人有这方面的经验吗？下面是我所做的解决方法。预先非常感谢您。

## Data

Grade <- 1 : 20 

Case <-  rep(paste('case' , 1:5,sep = ''),4)

Number <- paste('n', 1:20 ,  sep = '')

Class <- c(rep('Class1',5) , rep('Class2',5) , rep('Class3',5) , rep('Class4',5))

se <- 0.2

df <- data.frame(Grade,Case ,Number, Class  , se)


## plot 

ggplot(df, aes(x= factor(Case , levels = c('case1','case2' , 'case3' , 'case4','case5')) , y=Grade ,
                        fill= Grade)) + 


  geom_bar(position="dodge", stat="identity",
           colour="black",
           size=.4) +    

  geom_errorbar(aes(ymin=Grade +se, ymax=Grade +se),
                size=.3, …

我有两种数字模式：

x1 = 0.0003577
x2 = 0.2365483

我怎样才能将它们四舍五入：

x1 = 0.00035
x2 = 0.23

所以在逗号出现后的最后一个零之后只有两个或一个数字？