Добавлен цвет по группе

Question

Привет всем! Я пытаюсь объединить блокпост и полосовую диаграмму, чтобы представить некоторые данные, и пытаюсь раскрасить по группам:

xfact yvar Неполученный ответ 0,0012 Неполученный ответ 0,0002 Неподтвержденный-ответ 0,0018 не ответил 0,0004 не ответил 0,0013 не ответил 0,0004 не ответил 0,0029 не ответил 0,0016 отклик 0,0177 отклик 0,0335 отклик 0,0118 отклик 0,0309 отклик 0,0314 отклик 0,0135

это мой код:

boxplot(yvar~xfact, data = my.data, ylab= "CD8/GAPDH relative expression", 
names = c("Non-response n=14", "Response n=6"), outpch =NA)  
stripchart(yvar~xfact, data = my.data, vertical = TRUE, method = 
"overplot", pch = 21, col = "black", bg = c("green", "red"), add= TRUE) 

Так что я ожидаю, что для ответа не будет зеленого цвета, а для ответа красным, вместо этого у меня будет странный вывод: мой вывод

Так можноВы помогаете мне раскрасить по группам (отсутствие ответа и ответ) не случайно?

Answer 1

На самом деле это не решение, а обходной путь.

Назначение цвета (col) групповыми работами, чтобы вы могли использовать

boxplot(yvar~xfact, data = my.data, ylab= "CD8/GAPDH relative expression", 
    names = c("Non-response n=14", "Response n=6"), outpch =NA)  
stripchart(yvar~xfact, data = my.data, vertical = TRUE, 
    method = "overplot", pch = 16, col = c("green", "red"), add = T) 

Если вы действительно хотите получить вид круга с рамкой, вы можете добавитьграница отдельно.

boxplot(yvar~xfact, data = my.data, ylab= "CD8/GAPDH relative expression", 
    names = c("Non-response n=14", "Response n=6"), outpch =NA)  
stripchart(yvar~xfact, data = my.data, vertical = TRUE, 
    method = "overplot", pch = 16, col = c("green", "red"), add = T) 
stripchart(yvar~xfact, data = my.data, vertical = TRUE, 
    method = "overplot", pch = 21, col="black", add = T)