打印ggplot y轴值在10万

我有一些麻烦，改变我的y轴值。打印ggplot y轴值在10万

这是我的DF：

Years <-c("1997","1997","1997", "1998","1998","1998", "1999", "1999","1999","2000", "2000", "2000") 
Type <-c("Export","Import", "Production","Export","Import", "Production", "Export","Import", "Production","Export","Import", "Production") 
Amount <- c(12063595,19465000,38591914,14929732,20941620,42570725,33598846,30533486,62633597,39755626,30129958,49493053) 
df <-data.frame(Years, Type, Amount)

这是我公司生产的图形：

ggplot(data=df, aes(x=Years, y=Amount, group=Type, colour=Type)) + 
    geom_line(size=1.1) + 
    scale_colour_manual(values=cbPalette)+ 
    theme_bw()+ 
    ylab("Timber [in 10,000 m3(r)]") + 
    xlab("Years") + 
    expand_limits(y=0) + guides(colour = guide_legend(override.aes = list(size=3)))+ 
    theme(legend.title=element_blank(), 
     legend.position="top", 
     legend.text = element_text(size=20), 
     axis.text.x = element_text(size=20), axis.title.x=element_text(size=20), 
     axis.text.y = element_text(size=20), axis.title.y=element_text(size=20))

正如你可以看到我有非常高的数字（最高= 62633597），而现在他们科学显示（6e + 07）。我想显示标签中显示的值“10万”，我完全不知道是否有办法做到这一点。

来源

2016-04-22 samyandi

如果更改第一行

ggplot(data=df, aes(x=Years, y=Amount/10000, group=Type, colour=Type))

，那么你会得到这样的：

这是你想要的吗？

需要注意的是，我不得不删除scale_colour_manual(values=cbPalette)只是因为我不知道来自哪个包cbPalette从...

来源

2016-04-22 16:29:56 CephBirk

噢，我的！这样一个简单的解决方案...非常感谢你！另外：我与cbPalette混淆道歉。我应该把这件事情忘掉，但忘记了。 – samyandi

打印ggplot y轴值在10万

回答

相关问题