[英]Renaming legend text in ggplotly
我已将我的 ggplot 代码集成到 ggplotly 中,但 ggplotly 无法识别用于重命名图例文本的 scale_manual_color()。
ggplotly(
ggplot(data = national2,aes(x=period, y=pregnancy))+
geom_line(aes(color=type),size=0.8)+
scale_color_manual(values=c("red","blue","green"),
breaks = c("pregnancy1019","pregnancy1519","pregnancy1014"),
labels=c("Teen pregnancy (10-19years)","Teen pregnancy (15-19years)","Teen pregnancy (10-14years)"))+
labs(
title = "Teen pregnancy trends from 2016Q1 to 2020Q2",
x="Yearly quarters",
y="Teen pregnancies"
)+
scale_x_yearqtr(n=10)+
theme_gray()+
theme(
plot.title = element_text(size = 14),
legend.title = element_blank(),
legend.text = element_text(size = 12),
axis.title = element_text(face = "bold",size = 11),
axis.text = element_text(face = "bold",size = 10)
)
您尚未提供任何数据,因此,我使用的是iris
数据集。 只需从您的代码中删除breaks = c("pregnancy1019","pregnancy1519","pregnancy1014"),
部分,它就会完美运行。
library(plotly)
ggplotly(
ggplot(data = iris,aes(x=Sepal.Length, y=Petal.Width, color=Species))+
geom_line(size=0.8)+
scale_color_manual(values=c("red","blue","green"),
#breaks = c("pregnancy1019","pregnancy1519","pregnancy1014"),
labels=c("Teen pregnancy (10-19years)","Teen pregnancy (15-19years)","Teen pregnancy (10-14years)"))+
labs(
title = "Teen pregnancy trends from 2016Q1 to 2020Q2",
x="Yearly quarters",
y="Teen pregnancies"
)+
#scale_x_yearqtr(n=10)+
theme_gray()+
theme(
plot.title = element_text(size = 14),
legend.title = element_blank(),
legend.text = element_text(size = 12),
axis.title = element_text(face = "bold",size = 11),
axis.text = element_text(face = "bold",size = 10)
)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.