Question

我是R的新手，并且在ggplot上苦苦挣扎了很长时间。

我有一个数据框，看起来像这样：

USEquityPricing.close

我想要这样的条形图：

但是我希望y轴在条形图上显示百分比和频率值。

Answer 1

这是您问题的解决方案。了解您是新的贡献者，欢迎您！但是，请尝试提供一个可重复的示例，说明您在以后的问题中尝试过的操作。

首先创建一个数据框：

set.seed(101)
#create dataframe
df <- data.frame(x = 1:10, Freq = sample(1:100, 10))

有多种获取百分比列的方法，您可以使用提供的2种方法创建它，也可以直接跳到ggplot2方法：

#create a percent of column
df$Freq_percent <- round(((df$Freq/ sum(df$Freq)) * 100), 2) #Method 1

df

    x Freq Freq_percent
1   1   38         8.94
2   2    5         1.18
3   3   70        16.47
4   4   64        15.06
5   5   24         5.65
6   6   29         6.82
7   7   55        12.94
8   8   32         7.53
9   9   58        13.65
10 10   50        11.76

方法2：使用dplyr

df <- dplyr::mutate(df, Freq_percent_dplyr = (Freq / sum(Freq))*100) #Method 2

df

    x Freq Freq_percent_dplyr
1   1   38           8.941176
2   2    5           1.176471
3   3   70          16.470588
4   4   64          15.058824
5   5   24           5.647059
6   6   29           6.823529
7   7   55          12.941176
8   8   32           7.529412
9   9   58          13.647059
10 10   50          11.764706

绘制条形图：

library(ggplot2)
ggplot(df, aes(x=x, y=Freq_percent)) + 
  geom_bar(stat='identity') +
  geom_text(aes(label=paste("Freq:", Freq)), vjust=0) +
  scale_x_continuous(breaks = c(1:10)) + 
  theme_classic()

下面的代码将允许您将频率变量粘贴到每个条形图的顶部。

geom_text（aes（label = paste（“ Freq：”，Freq）），vjust = 0）

无需事先操纵数据框即可获取Y轴％的方法：

ggplot(df, aes(x=x, y=Freq)) + 
  geom_bar(stat='identity') + 
  geom_text(aes(label=paste("Freq:", Freq)), vjust=0) +
  scale_y_continuous(labels = scales::percent) + 
  scale_x_continuous(breaks = c(1:10)) + 
  theme_classic()

下面的代码是您要使y轴成百分比的

scale_y_continuous（labels = scales :: percent）+

使用ggplot创建Barplot

1 个答案: