带有geom_text的散点图 - 显示标签的子样本

时间:2017-11-15 11:34:08

标签: r ggplot2

我正在使用ggplot2运行以下R代码

library(ggplot2)

ggplot(result, aes(x=X2015, y=CPI.2015, color=Region)) + 
    geom_point(size=6, alpha=0.6)  +
    geom_text(aes(label=Country), size=3,color = "black")
   #scale_x_discrete(breaks=seq(0,1000, 200))

但是,我遇到了以下问题:

result plot

  1. x轴完全不可读。我在上面的代码(注释掉了)中有这一行,但我得到了这个"离散值到连续的比例"错误。

  2. 我不想显示所有名称,只是其中一些名称,以使其可读。这有可能吗?

1 个答案:

答案 0 :(得分:0)

如果没有原始数据,很难调整参数,但请尝试以下方法:

X2015转换为数字:

result$X2015 <- as.numeric(result$X2015)

随机抽样geom_text的标签:

# Number of labels to show
nOfLabels <- 10
result$Country2 <- ifelse(1:nrow(result) %in% sample(1:nrow(result), nOfLabels), 
                          result$Country, "")

在这里,我随机抽样10个国家/地区,休息时返回空字符串""

使用:

绘制result
library(ggplot2)
ggplot(result, aes(X2015, CPI.2015, color = Region)) + 
    geom_point(size = 6, alpha = 0.6)  +
    geom_text(aes(label = Country2), size = 3,color = "black") +
    scale_x_discrete(breaks = seq(0, 1000, 200))