포인트 색상 / 채우기에 다른 변수를 사용하여 geom_bar 및 geom_point 플롯 (그룹화 된 플롯)

게시물을 검색했지만 문제를 해결하는 데 도움이되는 구체적인 예를 찾을 수 없습니다. (이것은 내 첫 번째 게시물이므로 이미지를 직접 포함 할 수는 없지만 링크를 포함했으며 코드는 내 문제를 설명하기 위해 작동합니다.)

평균을 보여주는 막대 그래프와 개별 복제를 보여주는 개별 포인트가있는 ggplot에서 그룹화 된 그래프를 만들려고합니다. 특정 그룹에 따라 포인트의 모양을 변경하지 않으면 제대로 작동하도록 할 수 있습니다.

그러나 나는 복제에 의해 포인트를 형성하고 싶습니다. 그렇게하려고 할 때 geom_point가 잘못 그룹화하는 것처럼 보이며 더 이상 막대 그래프에 표시된 데이터와 일치하지 않습니다.

다음은 몇 가지 예시 데이터입니다. 4 가지 과일 소스, 4 가지 다른 유형의 과일, 각 소스 / 과일 조합에 대해 2 개의 복제가 있습니다.

values <- runif(n = 32, min = 50, max = 100)
source <- rep(c("grocery", "garden", "market", "farm"), each = 8)
replicate <- rep(c("A", "B"), times = 16)
fruit <- rep(c("apple", "orange", "banana", "grape"), each = 2, times = 4)

df <- data.frame(source, fruit, replicate, values)

# change fruit to factor
df$fruit <- factor(df$fruit, levels = c("apple", "orange", "banana", "grape"))

이제 두 복제물의 평균을 그래프로 표시하고 네 가지 소스를 기준으로 네 과일을 그룹화하는 막대 그래프를 만듭니다.

g <- ggplot(data = df, aes(x = source, y = values, fill = fruit)) +
  geom_bar(position = "dodge", color = "black", stat = "summary", fun = "mean") +
  scale_fill_manual(values = c("gray65", "deepskyblue1", "orange", "olivedrab4")) +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1),
        legend.position = "top",
        legend.title = element_text(face = "bold", size = 10),
        legend.text = element_text(size = 10),
        strip.text = element_text(size = 10, face = "bold"),
        legend.background = element_rect(size=.5, linetype="solid", color = "black"))

g

막대 그래프

다음으로 두 개의 반복을 표시하기 위해 점을 추가합니다. 이것은 잘 작동합니다.

#add in geom_point to show duplicates

g + geom_point(position = position_dodge(width = 0.9))

막대 그래프 + 포인트

그러나 두 복제물에 대해 다른 모양을 추가하려고하면 이제 각 점에 대해 복제물을 유지하는 대신 복제물을 함께 그룹화합니다. 따라서 포인트가 막대 그래프와 올바르게 일치하지 않습니다. 첫 번째 ggplot 줄의 aes에 "shape = replicate"를 추가하려고했지만 각 복제에 대한 개별 막대 그래프가 생겼습니다. 나는 가깝다고 확신하지만 다른 시도를 할 수 없습니다.

#make the shape of the points correspond to the celltype

g + geom_point(aes(shape = replicate), position = position_dodge(width = 0.9))

막대 그래프 + 복제를 보여주는 포인트 (작동하지 않음)