ggplotのドットプロットの形状、色の変更について

Question

ドットプロットを描画するために、以下のようにRスクリプトを書きました。Conditionによって、違うプロットの形、もしくはプロットの塗りつぶしの色を変更したいのですが、どうにも出来ません。例えば、ambientを丸、Darkを菱形など。さらには、ドットプロットの平均値のところに、赤色で横線を挿入したいと思います。もし、よろしければ、やり方をご教授いただけませんでしょうか？

#ライブラリの読み込み
library(dplyr)
library(ggplot2)
library(readr)

#頭の中をスッキリお掃除
rm(list=ls())

#データの読込みと確認

Test_date <- read_csv("test_data.csv")
Test_date.format <- filter(Test_date, values != "")

glimpse(Test_date.format)

#新たな列を作成
Test_date.format <- mutate(Test_date.format, Actual_values= values*20)

#プロットする
ggplot(Test_date.format, aes(x = Mode, y = Actual_values, fill = Condition))+
geom_point(size=5, shape=21, colour='Black', position = position_dodge(width = 0.75))+
labs(x="", y="colony number")+
theme_classic()+
theme(axis.title = element_text(colour=1, family = "Arial", size = 14), axis.text = element_text(colour=1, family = "Arial", size = 14, hjust = 1), axis.text.x = element_text(angle = 45))+
scale_y_continuous(breaks = seq(from=0, to=5000, by=1000))

#データ
Mode Condition values
mode1 Dark 1
mode1 Dark 2
mode1 Dark 1
mode1 Dark 4
mode1 Ambient 2
mode1 Ambient 2
mode1 Ambient 3
mode1 Ambient 1
mode2 Dark 4
mode2 Dark 3
mode2 Dark 4
mode2 Dark 12
mode2 Ambient 175
mode2 Ambient 141
mode2 Ambient 169
mode2 Ambient 157
mode3 Dark 3
mode3 Dark 3
mode3 Dark 5
mode3 Dark 8
mode3 Ambient 42
mode3 Ambient 25
mode3 Ambient 29
mode3 Ambient 30

Answer 1

• 塗りつぶし色の直接指定: scale_fill_manual()
• ヨコ線: geom_hline()

で指定できると思います。

点の色ではなく形を変えたいときは、aes(x = Mode, y = Actual_values, shape=Condition)のようにすればいいと思います。

p<-ggplot(Test_date.format, 
  aes(x = Mode, y = Actual_values, fill=Condition))+
  geom_point(size=5, shape=21, colour='black', position = position_dodge(width = 0.75))+
  scale_fill_manual(values = c("magenta", "green")) +
  geom_hline(yintercept=mean(Test_date.format$Actual_values), color = "red")
  labs(x="", y="colony number")+
  theme_classic()+
  theme(axis.title = element_text(colour=1, family = "Arial", size = 14), axis.text = element_text(colour=1, family = "Arial", size = 14, hjust = 1), axis.text.x = element_text(angle = 45))+
  scale_y_continuous(breaks = seq(from=0, to=5000, by=1000)) 

plot(p)