[R绘制有关参数化更多的问题(R graph more questions about parame

我建立这个图中R：

library(ggplot2)

dataset <- data.frame(Riserva_Riv_Fine_Periodo = 1:10 * 10^6 + 1,
                      Anno = 1:10)

ggplot(data = dataset, 
            aes(x = Anno, 
                y = Riserva_Riv_Fine_Periodo)) + 
  geom_bar(stat = "identity", 
           width=0.8, 
           position="dodge") + 
  geom_text(aes( y = Riserva_Riv_Fine_Periodo,
            label = round(Riserva_Riv_Fine_Periodo, 0), 
                 angle=90, 
                 hjust=+1.2), 
            col="white", 
            size=4, position = position_dodge(0.9))

正如你可以看到我有2个问题：

1. 数字到酒吧被截断。
2. Y比例被写在这个格式“0E + 00”

我想：

1. 根据栏的高度设置了酒吧内部或外部的数字
2. 百万设定Y比例。

Answer 1:

1. 您可以使用ifelse语句条件的改变基于Y的值hjust参数
2. 您可以更换的R代表如何使用小数scipen选项。

下面是一个例子：

library(ggplot2)

options(scipen=2)

dataset <- data.frame(Riserva_Riv_Fine_Periodo = 1:10 * 10^6 + 1,
                      Anno = 1:10)

ggplot(data = dataset, 
            aes(x = Anno, 
                y = Riserva_Riv_Fine_Periodo)) + 
  geom_bar(stat = "identity", 
           width=0.8, 
           position="dodge") + 
  geom_text(aes( y = Riserva_Riv_Fine_Periodo,
                 label = round(Riserva_Riv_Fine_Periodo, 0), 
                 angle=90, 
                 hjust= ifelse(Riserva_Riv_Fine_Periodo < 3000000, -0.1,  1.2)), 
            col="red", 
            size=4, 
            position = position_dodge(0.9))

文章来源: R graph more questions about parametrization