У меня есть скрытые данные, которые выглядят так:
height <- c(1,2,3,4,5,6,7,8)
weight <- c(100,200,300,400,500,600,700,800)
person <- c("Jack","Jim","Jill","Tess","Jack","Jim","Jill","Tess")
set <- c(1,1,1,1,2,2,2,2)
dat <- data.frame(set,person,height,weight)
Я пытаюсь построить график с той же осью x (человек) и двумя разными осями y (вес и рост). Во всех примерах, которые я нахожу, я пытаюсь построить вторичную ось (sec_axis) или дискретные данные с использованием базовых графиков. Есть ли простой способ использовать sec_axis для скрытых данных на ggplot2? Изменить: кто-то в комментариях предложил мне попробовать предложенный ответ. Однако сейчас я столкнулся с этой ошибкой
Вот мой текущий код:
p1 <- ggplot(data = dat, aes(x = person, y = weight)) +
geom_point(color = "red") + facet_wrap(~set, scales="free")
p2 <- p1 + scale_y_continuous("height",sec_axis(~.*1.2, name="height"))
p2
I get the error: Error in x < range[1] :
comparison (3) is possible only for atomic and list types
В качестве альтернативы, теперь я изменил пример, чтобы он соответствовал этому опубликованному примеру.
p <- ggplot(dat, aes(x = person))
p <- p + geom_line(aes(y = height, colour = "Height"))
# adding the relative weight data, transformed to match roughly the range of the height
p <- p + geom_line(aes(y = weight/100, colour = "Weight"))
# now adding the secondary axis, following the example in the help file ?scale_y_continuous
# and, very important, reverting the above transformation
p <- p + scale_y_continuous(sec.axis = sec_axis(~.*100, name = "Relative weight [%]"))
# modifying colours and theme options
p <- p + scale_colour_manual(values = c("blue", "red"))
p <- p + labs(y = "Height [inches]",
x = "Person",
colour = "Parameter")
p <- p + theme(legend.position = c(0.8, 0.9))+ facet_wrap(~set, scales="free")
p
Я получаю сообщение об ошибке
"geom_path: Each group consists of only one observation. Do you need to
adjust the group aesthetic?"
Я получаю шаблон, но точки не отображаются
sec.axis =
перед своимsec_axis(...)
. Без явного наименования аргумента по умолчанию используется 2-й аргумент вscale_y_continuous()
, &breaks = sec_axis(~.*1.2, name="height")
вызывает эту ошибку, потому что она не имеет смысла в контексте. - person Z.Lin   schedule 05.09.2017p1 + scale_y_continuous("height", sec_axis(sec.axis= ~.*1.2, name="height"))
? Это вызывает у меня ошибку - person Ash   schedule 05.09.2017ggplot2
не поддерживает независимую вторичную ось. Все вторичные оси должны быть основаны на однозначном преобразовании первичных осей. - person LVG77   schedule 05.09.2017