r - 折れ線グラフにさらに変数を追加しようとすると、「引数は行数が異なることを意味します: 20、28、21」が表示されます

Question

折れ線グラフを作成していますが、以前は機能していましたが、変数を追加しようとするとエラーが発生し続けました

最後の数字を「5」に設定しようとしましたが、"Day=rep(c("Day 0", "Day 1", "Day 2", "Day 3"),4)," 他の数字に変更すると、エラーメッセージで別の数字が表示されます

これは以前に動作していたコードです:

df2 <- data.frame(solvent=rep(c("Control",
                                  "Isopropanol",
                                  "DMSO",
                                  "Ethanol"), each=4),
                  Day=rep(c("Day 0", "Day 1", "Day 2", "Day 3"),4),
                  concentration=c(0.500, 80.5325,   73.46155,   44.55162,
                        0.500, 31.64383, 24.52091,  18.50862,
                        0.500, 55.40918,    45.16291,   36.05471,
                        0.500, 57.39699,    53.51239,   43.26611))


d2 <- ggplot(data=df2, aes(x=Day, y=concentration, group = solvent)) +
  geom_line() +
  geom_point() +
  theme(plot.title = element_text(hjust = 0.5))
d2

これは、作業を開始しようとしているコードです。

df2 <- data.frame(solvent=rep(c("Control",
                                "Benzothiophene",
                                  "Isopropanol",
                                  "DMSO",
                                  "Ethanol"), each=4),
                  Day=rep(c("Day 0", "Day 1", "Day 2", "Day 3"),4),
                  concentration=c(0.500, 80.5325,   73.46155,   44.55162,
                        0.500, 0.146, 0.121, 0,109,
                        0.500, 31.64383, 24.52091,  18.50862,
                        0.500, 55.40918,    45.16291,   36.05471,
                        0.500, 57.39699,    53.51239,   43.26611))


d2 <- ggplot(data=df2, aes(x=Day, y=concentration, group = solvent)) +
  geom_line() +
  geom_point() +
  theme(plot.title = element_text(hjust = 0.5))
d2

これは私が得るエラーメッセージです:

Error in data.frame(solvent = rep(c("Control", "Benzothiophene", "Isopropanol",  : 
  arguments imply differing number of rows: 20, 28, 21

そして、「日」の後の数字を5に変更したときのエラーメッセージは次のとおりです。

Error in data.frame(solvent = rep(c("Control", "Benzothiophene", "Isopropanol",  : 
  arguments imply differing number of rows: 20, 21