outcome

내국인? 외국인?

who <- c(rep('내국인',74), rep('외국인',30))
ds <- table(who)
pie(ds, main='내국인인가요? 외국인인가요?')

외국인 판넬 응답 결과

who <- c(rep('매우그렇다',5),rep('그렇다',6),rep('아니다',10),rep('전혀아니다',6))
table(who)

## who
##     그렇다 매우그렇다     아니다 전혀아니다 
##          6          5         10          6

ds <- table(who)
pie(ds, main='한국에 살면서 외국인으로서 차별을 경험한 적이 있나요?')

who <- c(rep('매우그렇다',6),rep('그렇다',7),rep('아니다',10),rep('전혀아니다',3))
ds <- table(who)
pie(ds, main='코로나19로 인해 외국인에 대한 부정적인 인식이 심해졌다고 느끼나요?')

who <- c(rep('매우그렇다',12),rep('그렇다',14),rep('아니다',2),rep('전혀아니다',0))
ds <- table(who)
pie(ds, main='구로구는 다문화 도시로 외국인이 살기 좋은 동네라고 생각하나요?')

who <- c(rep('언어교육',9),rep('상호교류활동',8),rep('다문화인식교육',8),rep('이주민 사회적응지원',1))
ds <- table(who)
pie(ds, main='한국인과 함께 살아가기 위해 어떤 활동이 가장 필요하다고 생각하나요?')

내국인 판넬 응답 결과

who <- c(rep('매우그렇다',4),rep('그렇다',19),rep('아니다',33),rep('전혀아니다',20))
ds <- table(who)
pie(ds, main='한국에 사는 외국인에 대해 편견이 있나요?')

who <- c(rep('매우그렇다',1),rep('그렇다',21),rep('아니다',37),rep('전혀아니다',14))
ds <- table(who)
pie(ds, main='코로나19로 인해 외국인에 대해 부정적인 인식의 변화가 생겼나요?')

who <- c(rep('매우그렇다',12),rep('그렇다',33),rep('아니다',18),rep('전혀아니다',8))
ds <- table(who)
pie(ds, main='외국인과 함께 사는 구로구는 살기 좋은 동네라고 생각하나요?')

who <- c(rep('언어교육',13),rep('상호교류활동',5),rep('다문화인식교육',23),rep('이주민 사회적응지원',25),rep('정책개선',7))
ds <- table(who)
pie(ds, main='외국인과 함께 살아가기 위해 어떤 활동이 필요한가요?')