ИП
Size: a a a
ИП
БА
БА
КД
БА
КД
БА
КД
IS
КД
AS
DI
scale_fill_manual
никак не меняет легенду ggplotа.T4R$groups <- as.factor(T4R$groups)
T4R$date <- as.Date(T4R$date)
cols <- c("T4R1" = ">115", "T4R2" = "60-115", "T4R3" = "31-60", "T4R4" = "<31")
ggplot(T4R, aes(x=date, y= n, group = groups))+
geom_line(aes(color = groups),size=1)+
theme(axis.text.x = element_text(angle = 90))+
scale_x_continuous(breaks = round(seq(min(T4R$date), max(T4R$date), by = 14),1))+
scale_fill_manual(name = "Last purchase", values = cols
)DI
Ю
scale_fill_manual
никак не меняет легенду ggplotа.T4R$groups <- as.factor(T4R$groups)
T4R$date <- as.Date(T4R$date)
cols <- c("T4R1" = ">115", "T4R2" = "60-115", "T4R3" = "31-60", "T4R4" = "<31")
ggplot(T4R, aes(x=date, y= n, group = groups))+
geom_line(aes(color = groups),size=1)+
theme(axis.text.x = element_text(angle = 90))+
scale_x_continuous(breaks = round(seq(min(T4R$date), max(T4R$date), by = 14),1))+
scale_fill_manual(name = "Last purchase", values = cols
)Ю
scale_fill_manual
никак не меняет легенду ggplotа.T4R$groups <- as.factor(T4R$groups)
T4R$date <- as.Date(T4R$date)
cols <- c("T4R1" = ">115", "T4R2" = "60-115", "T4R3" = "31-60", "T4R4" = "<31")
ggplot(T4R, aes(x=date, y= n, group = groups))+
geom_line(aes(color = groups),size=1)+
theme(axis.text.x = element_text(angle = 90))+
scale_x_continuous(breaks = round(seq(min(T4R$date), max(T4R$date), by = 14),1))+
scale_fill_manual(name = "Last purchase", values = cols
)DI
DI
Ю
I
scale_fill_manual
никак не меняет легенду ggplotа.T4R$groups <- as.factor(T4R$groups)
T4R$date <- as.Date(T4R$date)
cols <- c("T4R1" = ">115", "T4R2" = "60-115", "T4R3" = "31-60", "T4R4" = "<31")
ggplot(T4R, aes(x=date, y= n, group = groups))+
geom_line(aes(color = groups),size=1)+
theme(axis.text.x = element_text(angle = 90))+
scale_x_continuous(breaks = round(seq(min(T4R$date), max(T4R$date), by = 14),1))+
scale_fill_manual(name = "Last purchase", values = cols
)DI