r中的ggplotly与ggplot生成不同的图例
我在R中创建了以下dataframe。第一步是导入必要的库r中的ggplotly与ggplot生成不同的图例,r,ggplot2,plotly,legend-properties,R,Ggplot2,Plotly,Legend Properties,我在R中创建了以下dataframe。第一步是导入必要的库 library(ggplot2) library(plotly) library(dplyr) 我们在这里创建dataframe,如下所示 DF_1<-data.frame("A"= c(1:10)) DF_1$B<-c("D", "C") DF_1$C<-DF_1$A^2 p2<-ggplot(DF_1, aes(x=A, y
library(ggplot2)
library(plotly)
library(dplyr)
我们在这里创建dataframe,如下所示
DF_1<-data.frame("A"= c(1:10))
DF_1$B<-c("D", "C")
DF_1$C<-DF_1$A^2
p2<-ggplot(DF_1, aes(x=A, y=C, group=B, fill=B)) +
geom_line(size=.5) + geom_ribbon(data=subset(DF_1),aes(x=A,ymax=C),ymin=0,alpha=0.3) +
scale_fill_manual(name='Legend', values=c("green4", "red"), labels=c("D", "C" ))+theme_bw()
dfu 1看起来ggplotly
比ggplot2
更能体现美学。只需将fill
aes从ggplot
中的全局设置移动到geom_功能区
中,即可生成正确的图例:
library(ggplot2)
library(plotly)
library(dplyr)
DF_1<-data.frame("A"= c(1:10))
DF_1$B<-c("D", "C")
DF_1$C<-DF_1$A^2
ggplot(DF_1, aes(x = A, y = C, group=B)) +
geom_line(size=.5) +
geom_ribbon(aes(x = A, ymin = 0, ymax = C, fill = B), alpha=0.3) +
scale_fill_manual(name='Legend', values=c("green4", "red"), labels=c("D", "C" ))+theme_bw()
ggplotly(dynamicTicks = T) %>%
layout(xaxis = list(type = "log"))
库(ggplot2)
图书馆(绘本)
图书馆(dplyr)
DF_1
library(ggplot2)
library(plotly)
library(dplyr)
DF_1<-data.frame("A"= c(1:10))
DF_1$B<-c("D", "C")
DF_1$C<-DF_1$A^2
ggplot(DF_1, aes(x = A, y = C, group=B)) +
geom_line(size=.5) +
geom_ribbon(aes(x = A, ymin = 0, ymax = C, fill = B), alpha=0.3) +
scale_fill_manual(name='Legend', values=c("green4", "red"), labels=c("D", "C" ))+theme_bw()
ggplotly(dynamicTicks = T) %>%
layout(xaxis = list(type = "log"))