ggplot2 中使用 geom_text 和子集的条件标签答案

【问题标题】：Conditional labeling in ggplot2 using geom_text and subsettingggplot2 中使用 geom_text 和子集的条件标签
【发布时间】：2016-04-11 18:09:58
【问题描述】：

我是社区的新手，在搜索在线提到的解决方案时多次尝试后发布此内容。但是，我无法解决它。

以下代码

dat<-read.csv("Harvard tutorial/Rgraphics/dataSets/EconomistData.csv")
g <- ggplot(dat, aes(dat$CPI, dat$HDI))

g1 <- g + theme_bw() + geom_smooth(method = "lm", formula = y ~log(x), se = FALSE, color = "Red", linetype = 1, weight = 3) +
  geom_point(aes(color = Region), size = 4, fill = 4, alpha = 1/2, shape = 1) +
  scale_x_continuous(name = "Corruption Perception Index", breaks = NULL) +
  scale_y_continuous(name = "Human Development Index") +
  scale_color_manual(name = "Region of the world", values = c("#24576D", "#099DD7", "#28AADC", "#248E84", "#F2583F", "#96503F")) + 
  theme(axis.text.x = element_text(angle = 90, size = 15))

这给了我以下结果：

但是，当我在代码中添加以下行时

pointsToLabel <- c("Russia", "Venezuela", "Iraq", "Myanmar", "Sudan",
                   "Afghanistan", "Congo", "Greece", "Argentina", "Brazil",
                   "India", "Italy", "China", "South Africa", "Spane",
                   "Botswana", "Cape Verde", "Bhutan", "Rwanda", "France",
                   "United States", "Germany", "Britain", "Barbados", "Norway", "Japan",
                   "New Zealand", "Singapore")

g2 <- g1 + geom_text(aes(dat$CPI, dat$HDI, label = dat$Country), data = subset(x = dat,subset =  Country %in% pointsToLabel))

我收到以下错误

错误：美学长度必须为 1 或与数据 (27) 相同：x、y、标签

有人可以帮我解决这个问题吗？

数据来源于Harvard Tutorial on GGPLOT2

供您参考，数据集的结构如下

'data.frame':   173 obs. of  6 variables:
 $ X       : int  1 2 3 4 5 6 7 8 9 10 ...
 $ Country : Factor w/ 173 levels "Afghanistan",..: 1 2 3 4 5 6 7 8 9 10 ...
 $ HDI.Rank: int  172 70 96 148 45 86 2 19 91 53 ...
 $ HDI     : num  0.398 0.739 0.698 0.486 0.797 0.716 0.929 0.885 0.7 0.771 ...
 $ CPI     : num  1.5 3.1 2.9 2 3 2.6 8.8 7.8 2.4 7.3 ...
 $ Region  : Factor w/ 6 levels "Americas","Asia Pacific",..: 2 3 5 6 1 3 2 4 3 1 ...

【问题讨论】：

首先，您应该避免在aes 中使用data$column。相反，只需使用列名，因为您已经在 ggplot(data = dat) 中指明了要使用的数据。其次，您可以使用pointsToLabel 向量在dat 中创建一列（将未标记的点作为空白或NA），然后将该列指定为ggplot 中的标签。
感谢您的建议！！

标签： r ggplot2

【解决方案1】：

首先，不要在aes() 中使用$。然后，修复子集部分尝试..

g2 <- g1 + 
  geom_text(aes(CPI, HDI, label = Country), data = dat[dat$Country %in% pointsToLabel,])

.. 希望得到你想要的情节：

【讨论】：

谢谢大家。这成功了。我还通过在 dplyr 库中使用过滤器使其工作。