Question

我正在使用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

x轴完全不可读。我在上面的代码（注释掉了）中有这一行，但我得到了这个＆＃34;离散值到连续的比例＆＃34;错误。
我不想显示所有名称，只是其中一些名称，以使其可读。这有可能吗？

Answer 1

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

将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))

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

1 个答案: