命名数字向量的 geom_bar [重复]答案

【问题标题】：geom_bar of named number vector [duplicate]命名数字向量的 geom_bar [重复]
【发布时间】：2020-07-01 15:13:10
【问题描述】：

我正在尝试做一个在基本 R 图中非常容易的简单事情，但出于多功能性的原因，我想使用 ggplot 来代替，但我找不到最好的方法。

我有一个 PCA 特征值的命名数字向量：

nums <- c(2.491301e-01, 6.591505e-02, 4.615435e-02, 3.723229e-02, 2.124809e-02,
          1.662227e-02, 1.476976e-02, 1.297296e-02, 1.053972e-02, 6.665518e-03,
           5.040257e-03, 4.258138e-03, 2.766567e-03, 2.612342e-03, 1.504883e-03,
           1.387214e-03, 1.037458e-03, 7.814771e-04, 4.749074e-04, 4.263183e-04,
           2.812258e-04, 2.188441e-04, 1.382420e-04, 8.760467e-05, 5.336446e-05,
           1.475674e-05, 9.216328e-06)


names(nums) <- c(  "PC1"  ,"PC2" , "PC3" , "PC4" , "PC5" , "PC6" , "PC7" , "PC8" , "PC9" , "PC10",
                   "PC11", "PC12", "PC13", "PC14", "PC15", "PC16", "PC17", "PC18", "PC19", "PC20",
                   "PC21", "PC22", "PC23", "PC24", "PC25", "PC26", "PC27")

在基础 R 中，我可以轻松地为这些值制作一个带标签的条形图：

barplot(nums, main = "Eigenvalues", col = "grey", las = 2)
abline(h = mean(nums), col = "red3", lwd = 2)
legend("topright", "Average eigenvalue",
       lwd = 2, col = "red3" )

但我在 ggplot 中很容易做到这一点。到目前为止，我想出的最好的是：

nums %>% 
  data.frame() %>%
  ggplot(aes(names(nums),nums)) + 
  geom_bar(stat="identity",fill="grey",color="black") +
  geom_hline(yintercept = mean(nums))+
  theme_classic() +
  theme(axis.text.x = element_text(angle=90),
        axis.title = element_blank(),
        plot.title = element_text(hjust=.5))+
  labs(title="Eigenvalues")

但这使它们令人讨厌地失序。有没有一种不烦人的方法来快速探索情节？这是基数 R 绘图优越的罕见时期之一吗？

【问题讨论】：

这能回答你的问题吗？ Order Bars in ggplot2 bar graph

标签： r ggplot2 pca eigenvalue

【解决方案1】：

名称在幕后被转换为因子，这意味着默认情况下，您的名称将在因子转换中按字母顺序排序。您只需通过将名称作为一个因素并声明级别的顺序来明确所需的顺序。

另外两点需要注意的是，geom_bar 和 stat = "identity" 可以替换为 geom_col，而且在 ggplot 中绘图之前，通常更容易从变量创建数据框。

library(ggplot2)
library(dplyr)

data.frame(names = factor(names(nums), levels = names(nums)), nums) %>%
  ggplot(aes(names, nums)) + 
  geom_col() +
  geom_hline(yintercept = mean(nums)) +
  theme_classic() +
  theme(axis.text.x = element_text(angle = 90),
        axis.title  = element_blank(),
        plot.title  = element_text(hjust = 0.5)) +
  labs(title="Eigenvalues")

^{由reprex package (v0.3.0) 于 2020 年 7 月 1 日创建}

【讨论】：

【解决方案2】：

这个怎么样？

nums <- c(2.491301e-01, 6.591505e-02, 4.615435e-02, 3.723229e-02, 2.124809e-02,
          1.662227e-02, 1.476976e-02, 1.297296e-02, 1.053972e-02, 6.665518e-03,
          5.040257e-03, 4.258138e-03, 2.766567e-03, 2.612342e-03, 1.504883e-03,
          1.387214e-03, 1.037458e-03, 7.814771e-04, 4.749074e-04, 4.263183e-04,
          2.812258e-04, 2.188441e-04, 1.382420e-04, 8.760467e-05, 5.336446e-05,
          1.475674e-05, 9.216328e-06)

PC <- c(  "PC1"  ,"PC2" , "PC3" , "PC4" , "PC5" , "PC6" , "PC7" , "PC8" , "PC9" , "PC10",
          "PC11", "PC12", "PC13", "PC14", "PC15", "PC16", "PC17", "PC18", "PC19", "PC20",
          "PC21", "PC22", "PC23", "PC24", "PC25", "PC26", "PC27")
names(nums) <- PC

barplot(nums, main = "Eigenvalues", col = "grey", las = 2)
abline(h = mean(nums), col = "red3", lwd = 2)
legend("topright", "Average eigenvalue",
       lwd = 2, col = "red3" )


nums %>% 
  data.frame() %>%
  ggplot(aes(factor(names(nums),levels = PC),nums)) + 
  geom_bar(stat="identity",fill="grey",color="black") +
  geom_hline(yintercept = mean(nums))+
  theme_classic() +
  theme(axis.text.x = element_text(angle=90),
        axis.title = element_blank(),
        plot.title = element_text(hjust=.5))+
  labs(title="Eigenvalues")

【讨论】：