Построение точек и линий отдельно в R с помощью ggplot

Question

Я пытаюсь построить 2 набора точек данных и одну строку в R, используя ggplot. Вопрос, который у меня есть, - это легенда. Как видно из прилагаемого изображения, легенда применяет линии ко всем 3 наборам данных, хотя только одна из них нанесена на график с помощью строки.

Я растопил данные в один длинный кадр, но для этого все еще требуется отфильтровать наборы данных для каждого отдельного вызова до geom_line() и geom_path().

Я хочу, чтобы графика расплавленных данных, построение линии на основе одного набора данных и точек на оставшиеся два, с полной легендой.

Вот пример сценария я написал, чтобы произвести сюжет:

xseq <- 1:100 
x <- rnorm(n = 100, mean = 0.5, sd = 2) 
x2 <- rnorm(n = 100, mean = 1, sd = 0.5) 
x.lm <- lm(formula = x ~ xseq) 
x.fit <- predict(x.lm, newdata = data.frame(xseq = 1:100), type = "response", se.fit = TRUE) 
my_data <- data.frame(x = xseq, ypoints = x, ylines = x.fit$fit, ypoints2 = x2) 

## Now try and plot it 
melted_data <- melt(data = my_data, id.vars = "x") 

p <- ggplot(data = melted_data, aes(x = x, y = value, color = variable, shape = variable, linetype = variable)) + 
    geom_point(data = filter(melted_data, variable == "ypoints")) + 
    geom_point(data = filter(melted_data, variable == "ypoints2")) + 
    geom_path(data = filter(melted_data, variable == "ylines")) 

pushViewport(viewport(layout = grid.layout(1, 1))) # One on top of the other 
print(p, vp = viewport(layout.pos.row = 1, layout.pos.col = 1)) 

Answer 1

Вы можете установить их вручную, как это:

Мы установили тип линии = «твердый» для первого и «пусто» для других (без строки).

Аналогичным образом для первого элемента мы не устанавливаем никакой формы (NA), а для других мы будем устанавливать любую форму, в которой мы нуждаемся (я просто поставлю для примера 7 и 8). См. http://www.r-bloggers.com/how-to-remember-point-shape-codes-in-r/, чтобы помочь вам выбрать правильные формы для ваших нужд.

Если вы довольны точками, то вы можете использовать my_shapes = c(NA,16,16) и scale_shape_manual(...) не требуется.

my_shapes = c(NA,7,8) 

ggplot(data = melted_data, aes(x = x, y = value, color=variable, shape=variable)) + 
    geom_path(data = filter(melted_data, variable == "ylines")) + 
    geom_point(data = filter(melted_data, variable %in% c("ypoints", "ypoints2"))) + 
    scale_colour_manual(values = c("red", "green", "blue"), 
         guide = guide_legend(override.aes = list(
          linetype = c("solid", "blank","blank"), 
          shape = my_shapes))) + 
    scale_shape_manual(values = my_shapes) 

Но я очень интересно, если есть какой-то более автоматизированным способом. Надеюсь, кто-то может опубликовать лучший ответ.

Это сообщение полагались довольно сильно на этот ответ: ggplot2: Different legend symbols for points and lines