5 열의 데이터가있는 데이터 프레임이 있습니다. 첫 번째는 주요 그룹 (cat1 또는 cat 2)이고 다른 열 변수 V1 ~ v4는 특성과 그 존재 (1 = 아니오 및 2 = 예)입니다. 각 범주 및 각 변수 V1 ~ V4에 대한 특성 카운트의 막대 그래프를 작성하고 싶습니다. 가급적이면 데이터 프레임을 변경하지 않고 필요한 경우 괜찮습니다. 내가 달성하고 싶은 데이터 스크립트와 플롯은 다음과 같습니다. 모든 변수는 요인입니다. 목적은 카테고리 1과 카테고리 2에서 어떤 특성이 지배적으로 나타나는지 확인하는 것입니다. 모든 방향이나 링크를 환영합니다.
cat = as.factor(c(1,1,1,1,1,2,2,2,2,2))
v1 = as.factor(c(1,2,2,1,1,2,1,1,1,1))
v2 = as.factor(c(1,1,2,2,1,1,2,2,1,1))
v3 = as.factor(c(1,1,1,1,2,2,1,1,2,2))
v4 = as.factor(c(1,2,2,2,2,1,2,2,1,1))
df = data.frame(cat,v1,v2,v3,v4)
한 가지 방법은 데이터를 재구성하고 각 범주 및 플롯에서 예와 아니오를 세는 것입니다.
library(tidyverse)
cust_labeller <- function(x) paste0("Cat = ", x)
df %>%
pivot_longer(cols = -cat) %>%
count(cat, name, value) %>%
mutate(value = recode(value, `1` = 'no', `2` = 'yes')) %>%
ggplot() + aes(name, n, fill = value) +
geom_col(position = 'dodge') +
scale_fill_manual(values = c('blue', 'red')) +
facet_wrap(.~cat, labeller = as_labeller(cust_labeller),
strip.position="bottom")
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다