我制作了一个线图，看起来像这样
我有 50 个国家及其过去 10 年 GDP 的数据集。
样本数据：
Country variable value
China Y2007 3.55218e+12
USA Y2007 1.45000e+13
Japan Y2007 4.51526e+12
UK Y2007 3.06301e+12
Russia Y2007 1.29971e+12
Canada Y2007 1.46498e+12
Germany Y2007 3.43995e+12
India Y2007 1.20107e+12
France Y2007 2.66311e+12
SKorea Y2007 1.12268e+12
我使用代码生成了折线图
GDP_lineplot = ggplot(data=GDP_linechart, aes(x=variable,y=value)) +
geom_line() +
scale_y_continuous(name = "GDP(USD in Trillions)",
breaks = c(0.0e+00,5.0e+12,1.0e+13,1.5e+13),
labels = c(0,5,10,15)) +
scale_x_discrete(name = "Years", labels = c(2007,"",2009,"",2011,"",2013,"",2015))
The idea is to make the graph look like this.
我尝试添加
group=country, color = country
它输出所有国家的颜色。
如何为前 4 名和其余国家/地区着色？
PS：我对R还是很幼稚。
通过绘制子集，其他组不会包含在右侧的颜色图例中。下面的替代方法操纵因子水平并使用定制的色标来克服这个问题。
假设GDP_long包含长格式的数据。这与 OP 显示的数据一致（GDP_lineplot，但请参阅下面的数据部分以了解差异）。为了操纵因子水平，forcats使用包（并且data.table).
library(data.table)
library(forcats)
# coerce to data.table, reorder factors by values in last = most actual year
setDT(GDP_long)[, Country := fct_reorder(Country, -value, last)]
# create new factor which collapses all countries to "Other" except the top 4 countries
GDP_long[, top_country := fct_other(Country, keep = head(levels(Country), 4))]
library(ggplot2)
ggplot(GDP_long, aes(Year, value/1e12, group = Country, colour = top_country)) +
geom_point() + geom_line(size = 1) + theme_bw() + ylab("GDP(USD in Trillions)") +
scale_colour_manual(name = "Country",
values = c("green3", "orange", "blue", "red", "grey"))
该图表现在与预期结果非常相似。前 4 个国家/地区的线条以不同颜色显示，而其他国家/地区以灰色显示，但确实出现在右侧的颜色图例中。
请注意，group仍然需要美观，以便为每个国家绘制一条线，而colour是由水平控制的top_country.
数据集太大，无法在此处复制（即使使用dput()）。结构
str(GDP_long)
'data.frame': 1763 obs. of 3 variables:
$ Country: chr "Afghanistan" "Albania" "Algeria" "Andorra" ...
$ Year : int 2007 2007 2007 2007 2007 2007 2007 2007 2007 2007 ...
$ value : num 9.84e+09 1.07e+10 1.35e+11 4.01e+09 6.04e+10 ...
与 OP 的数据类似，但variable列已转换为整数列year。这将给出一个格式良好的 x 轴，无需额外的努力。