Page 25 - Demo

ban=mr_pizza%>%filter(cqQ17==6)#반올림피자샵s_ban=mean(ban$cqQ37_mean)r_ban=mean(ban$cqQ21_6)pina=mr_pizza%>%filter(cqQ17==7)#피자나라치킨공주s_pina=mean(pina$cqQ37_mean)r_pina=mean(pina$cqQ21_7)chung=mr_pizza%>%filter(cqQ17==10)#청년피자s_chung=mean(chung$cqQ37_mean)r_chung=mean(chung$cqQ21_10)#브랜드별만족도평균과재구매의향평균값저장satisfied=c(s_mps_dos_huts_papas_alvs_bans_pinas_chung)repurchase=c(r_mpr_dor_hutr_papar_alvr_banr_pinar_chung)dt=dataframe(satisfiedrepurchase)#만족도와재구매의향을나열한데이터프레임rownames(dt)=c(미스터피자도미노피자피자헛파파존스피자알볼로반올림피자샵피자나라치킨공주청년피자)#데이터프레임의행이름을피자브랜드이름으로설정dt(출력)satisfiedrepurchase미스터피자39318684230769도미노피자39519654519651피자헛39273544515695파파존스39450704591549피자알볼로39689194472973반올림피자샵40075474471698피자나라치킨공주37867924396226청년피자41043484391304포지셔닝맵(입력)plot(satisfiedrepurchasexlab=만족도ylab=재구매의향main=PositioningMap)text(satisfiedrepurchaselabels=rownames(position$points)cex=7)abline(v=4175h=44)(출력)2022학년도MadeInSungshin 공모전25대상프로젝트기반학습(PBL)및캡스톤디자인