我正在使用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))
但是,我遇到了以下问题:
x轴完全不可读。我在上面的代码(注释掉了)中有这一行,但我得到了这个"离散值到连续的比例"错误。
我不想显示所有名称,只是其中一些名称,以使其可读。这有可能吗?
答案 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))