Untitled

• install.packages(‘rsconnect’)

library(DT)
library(ggplot2)

library(rsconnect)

read.csv(file(“ancate.csv”,encoding=‘cp932’), na = “.”) -https://rpubs.com/fumi/572780

ancate <- read.csv(file("ancate.csv",encoding='cp932'), na = ".")

• read.csv(file(“ancate.csv”,encoding=‘cp932’), encoding=‘cp932’?́A?G???R?[?f?B???O??jis?̂悤?ɕK?v?ȏꍇ?Ɏw?肷?????? -na = “.”?͋󔒂??ǂݔ??΂??Ȃ???.?J?E???g?????w??

summary(ancate)

##    SEX       横浜生まれ                    横浜市は都会
##      : 87         :  3                           :  4  
##  女性:229   NR    :200   NR                      :168  
##  男性:135   いいえ:196   あまりそう思わない      : 11  
##             はい  : 52   そう思う                :153  
##                          そう思わない            :  2  
##                          どちらかといえばそう思う: 98  
##                          どちらでもない          : 15  
##                  横浜市はおしゃれ 金沢八景周辺の生活環境 娯楽施設   商業施設  
##                          :  2         :  4                   :  4       :  2  
##  NR                      :168     NR  :222               NR  :222   NR  :222  
##  あまりそう思わない      : 20     悪い: 20               悪い:116   悪い: 72  
##  そう思う                :120     普通:122               普通:100   普通:118  
##  そう思わない            :  5     良い: 83               良い:  9   良い: 37  
##  どちらかといえばそう思う:103                                                 
##  どちらでもない          : 33                                                 
##  飲食店の充実度 交通アクセス 治安のよさ
##      :  1           :  2         :  3  
##  NR  :222       NR  :222     NR  :222  
##  悪い: 69       悪い: 36     悪い:  6  
##  普通:126       普通:110     普通:128  
##  良い: 33       良い: 81     良い: 92  
##                                        
## 

ggplot(ancate, aes(as.factor(SEX))) + 
  geom_bar() + 
  theme_bw()

-離散値のヒストグラム ggplot(ancate, aes(as.factor(SEX))) + geom_bar() + theme_bw

geom_bar() + theme_bw()

ggplot(ancate, aes(as.factor(横浜生まれ))) + 
  geom_bar() + 
  theme_bw()