В легенде нельзя совмещать геометрическую точку с геометрической линией

Question

Я пытаюсь получить только одну легенду с формой того же цвета, что и график, но только черного цвета:

type1    <-c("tmax","tmax","tmax","tmin","tmin","tmin","tmax","tmax","tmax","tmin","tmin","tmin") 
station1 <-c("Anda","Anda","Anda","Anda","Anda","Anda","Mach","Mach","Mach","Mach","Mach","Mach") 
date1    <-c(2001,2002,2003,2001,2002,2003,2002,2003,2004,2002,2003,2004) 
meanTemp1<-c(15,16,15.5,5,7,8,13,14,12,9,9,7)

data11 <- data.frame(type1,station1,date1,meanTemp1)

plot1<- ggplot(data11, aes(x=date1, y=meanTemp1,group = station1,colour=station1,shape=station1)) +
        geom_line () + guides(colour=FALSE)+
        geom_point() + 
        xlab("year") + ylab("°C") + 
        labs(shape = "Station")+
        facet_wrap(~type1,scales = "free")+
        theme(axis.text.x = element_text(angle = 60,hjust = 1))
plot1

Как можно Я получаю легенду, заполненную тем же цветом, что и график, а не "черным"?

Answer 1

Когда вы переименовываете shape легенду в labs, вам также необходимо переименовать colour легенды, используя одно и то же имя, чтобы получить слияние.

Вместо использования guides(colour = FALSE) вы можете передать geom_line аргумент show.legend = FALSE для удаления цветных линий в легенде:

plot1<- ggplot(data11, aes(x=date1, y=meanTemp1, group = station1,
                           colour=station1,
                           shape=station1)) +
  geom_line (show.legend = FALSE) +
  geom_point() + 
  xlab("year") + ylab("°C") + 
  labs(shape = "Station", colour = "Station")+
  facet_wrap(~type1,scales = "free")+
  theme(axis.text.x = element_text(angle = 60,hjust = 1))
plot1