0

ggpairs点を結んだ 2 つのボックス プロットを含むグラフを提供して、介入を行った後の状況を示します。

  1. y 軸のラベルを「3GCr」と「3GCs」ではなく「Resist」「Suscept」に変更したい。

  2. そして、Resist= circle (1) & Suscept= Diamond(5) のような r デフォルト形状でデータポイントを変更したい

いくつかのサイトを検索しましたが、目的の結果が得られませんでした。コードと出力も追加します。

df.reach.sub <- data.frame(Resist = c(5.78, 3.85, 5.60, 7.83, 6.68, 7.90), Suscept =c(5.70, 3.70, 8.82, 8.67, 9.06, 8.08), Age = c(1,1,1,1,1,1), Status = c("Positive", "Positive", "Positive", "Positive", "Positive", "Positive"))

df.reach.subCat1 <- df.reach.sub[which(df.reach.sub$Age == "1-3" & df.reach.sub$Status == "Positive"),]
gp.plotCat1 <- ggpaired(df.reach.subCat1, cond1 = "Resist", cond2 = "Suscept", color = "Black", line.color = "gray", line.size = 0.4, palette = "npg", ylab = expression('log'[10]*' CFU / g faeces'), xlab = NULL, main = expression("A) 1-3 months ("*italic('p = 0.116, n = 6')*')'), legend = "none", ggtheme = theme_bw(), ylim = c(2,10))

gp.plotCat1

4

1 に答える 1

0

このように、sometidyverseと "basic"を使用することをお勧めしますggplot2

df.reach.sub %>% 
  rownames_to_column() %>% 
  gather(key, value, -Age, -Status, -rowname) %>% 
  ggplot(aes(key, value)) +
    geom_boxplot() + 
    geom_point(aes(shape=key), show.legend = F, size=2) + 
    geom_path(aes(group=rowname)) + 
    theme_bw()

ここに画像の説明を入力

于 2018-11-05T09:23:11.560 に答える