r - 在 ggplot2 中添加图例
问题描述
我有以下代码。
Financial_Wealth.lq,Financial_Wealth.uq,Total_Wealth.lq,Total_Wealth.uq,time=seq(0,(sPar.dNN),1))
ggplot(data, aes(x=time)) +
geom_line(aes(y = Human_Capital.mean), color="red", size=1) +
geom_line(aes(y = Financial_Wealth.mean), color="goldenrod3", size=1) +
geom_ribbon(aes(ymin=Financial_Wealth.lq, ymax = Financial_Wealth.uq), alpha=0.4, fill="goldenrod3") +
geom_line(aes(y = Total_Wealth.mean), color="dodgerblue", size=1)+
geom_ribbon(aes(ymin=Total_Wealth.lq, ymax=Total_Wealth.uq), alpha=0.4, fill = "dodgerblue") +
scale_x_continuous(name = 'Age',
breaks=(c(seq(0,(sPar.dNN),4))))+
scale_y_continuous(name = 'Wealth Level',
breaks = seq(0,100,10))+
theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
legend.title = element_text(size=12, face="bold"),
legend.text = element_text(size=12),
axis.title = element_text(size=12),
axis.text = element_text(size=10)) +
coord_cartesian(xlim = c(0,45), ylim = c(0,100), expand = TRUE)+
scale_fill_manual(name="Median",values=c("goldenrod3", "red","dodgerblue"),
labels = c("Financial Wealth", "Human Capital", "Total Wealth"))+
ggtitle('Optimal Wealth Development')
您可以将每个数据输入解释为等长数字的向量。有人能告诉我为什么传说没有出现吗?我需要做什么不同的事情!在此先感谢 :) 我附上了它正在制作的图像,以便您了解我想要实现的目标。
解决方案
为了添加图例,您需要在aes()
. 在这种情况下,请接听您的所有geom_line()
电话并color=
为aes()
. 分配给 inside 的值color=
将aes()
是图例中标签的文本:而不是颜色。要分配颜色,您需要添加scale_color_manual()
并设置values=
一个命名向量。
请参阅下面的以下更改,这些更改应该可以解决您的问题,尽管在没有您的数据集或代表的情况下,我无法测试新代码的功能。
# original code
... +
geom_line(aes(y = Human_Capital.mean), color="red", size=1) +
geom_line(aes(y = Financial_Wealth.mean), color="goldenrod3", size=1) +
geom_line(aes(y = Total_Wealth.mean), color="dodgerblue", size=1)+
# new plot code
... +
geom_line(aes(y = Human_Capital.mean, color="Human Capital Mean"), size=1) +
geom_line(aes(y = Financial_Wealth.mean, color="Financial Wealth Mean"), size=1) +
geom_line(aes(y = Total_Wealth.mean, color="Total Wealth Mean"), size=1) +
scale_color_manual(values=c(
"Human Capital Mean"="red",
"Financial Wealth Mean"="goldenrod3",
"Total Wealth Mean"="dodgerblue"))
推荐阅读
- vba - 在 TabCtl 中的 OnChange 事件之前验证数据输入字段
- flutter - Flutter 布局错误:在选项卡式内容中使用 webview
- azure-active-directory - Azure 托管标识性能
- python - 使用 matplotlib 和 GetDistTool 设置图例的手动位置
- python - 从 python2 脚本列表输出中删除 u' unicode
- vue.js - Nuxt/Vue 路由参数更新元标题
- excel - 巴士舱单摘要页面公式(列出有开放座位的巴士)
- azure - Azure DevOps “成功”部署了 FunctionApp,但未进行任何更改
- java - 将 Java 和 Prolog 与 JPL 连接时出现问题
- python - 在 Beautiful Soup 中使用 find 函数时返回 NoneType 值