Эстетика должна быть либо одной, либо той же длины, что и dataProblems

Я хотел бы сделать график с значениями X в качестве подмножества измерения и значений Y в качестве другого подмножества измеренных данных.

В приведенном ниже примере у меня есть 4 продукта p1, p2, p3 и p4. Каждый из них оценивается в соответствии с их перекос, цвет и версия. Я хотел бы создать многоаспектный график, изображающий продукты P3 (ось Y) и продукты P1 (ось X).

Моя попытка, приведенная ниже, потерпела неудачу со следующей ошибкой:

Ошибка: эстетика должна быть либо одной, либо той же длины, что и dataProblems: подмножество (цена, продукт == "p1" ), подмножество (цена, продукт == "p3" )

library(ggplot2)
product=c("p1","p1","p1","p1","p1","p1","p1","p1","p2","p2","p2","p2","p2","p2","p2","p2","p3","p3","p3","p3","p3","p3","p3","p3","p4","p4","p4","p4","p4","p4","p4","p4")
skew=c("b","b","b","b","a","a","a","a","b","b","b","b","a","a","a","a","b","b","b","b","a","a","a","a","b","b","b","b","a","a","a","a")
version=c(0.1,0.1,0.2,0.2,0.1,0.1,0.2,0.2,0.1,0.1,0.2,0.2,0.1,0.1,0.2,0.2,0.1,0.1,0.2,0.2,0.1,0.1,0.2,0.2,0.1,0.1,0.2,0.2,0.1,0.1,0.2,0.2)
color=c("C1","C2","C1","C2","C1","C2","C1","C2","C1","C2","C1","C2","C1","C2","C1","C2","C1","C2","C1","C2","C1","C2","C1","C2","C1","C2","C1","C2","C1","C2","C1","C2")
price=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32)
df = data.frame(product, skew, version, color, price)
# First plot all the data
p1 <- ggplot(df, aes(x=price, y=price, colour=factor(skew))) + geom_point(size=2, shape=19)
p1 <- p1 + facet_grid(version ~ color)
p1 # This gavea very good plot. So far so good
# Now plot P3 vs P1
p1 <- ggplot(df, aes(x=subset(price, product=='p1'), y=subset(price, product=='p3'), colour=factor(skew))) + geom_point(size=2, shape=19)
p1
# failed with: Error: Aesthetics must either be length one, or the same length as the dataProblems:subset(price, product == "p1"), subset(price, product == "p3")

Это результат, который я ожидаю:

Ответ 1

Проблема заключается в том, что skew не подмножается в colour=factor(skew), поэтому это неверная длина. Так как subset(skew, product == 'p1') совпадает с subset(skew, product == 'p3'), в этом случае не имеет значения, какое подмножество используется. Поэтому вы можете решить свою проблему:

p1 <- ggplot(df, aes(x=subset(price, product=='p1'),
                     y=subset(price, product=='p3'),
                     colour=factor(subset(skew, product == 'p1')))) +
              geom_point(size=2, shape=19)

Обратите внимание, что большинство пользователей R будут писать это как более сжатое:

p1 <- ggplot(df, aes(x=price[product=='p1'],
                     y=price[product=='p3'],
                     colour=factor(skew[product == 'p1']))) +
              geom_point(size=2, shape=19)

Ответ 2

Лучше не подмножать переменные внутри aes(), а вместо этого преобразуйте свои данные:

df1 <- unstack(df,form = price~product)
df1$skew <- rep(letters[2:1],each = 4)

p1 <- ggplot(df1, aes(x=p1, y=p3, colour=factor(skew))) + 
        geom_point(size=2, shape=19)
p1

Ответ 3

Похож на ответ @joran. Измените df так, чтобы цены для каждого продукта находились в разных столбцах:

xx <- reshape(df, idvar=c("skew","version","color"),
              v.names="price", timevar="product", direction="wide")

xx будет иметь столбцы price.p1,... price.p4, поэтому:

ggp <- ggplot(xx,aes(x=price.p1, y=price.p3, color=factor(skew))) +
       geom_point(shape=19, size=5)
ggp + facet_grid(color~version)

дает результат из вашего изображения.