使用R进行简易调查

来看一个简单的调查问卷结果分析:

> survey <- read.csv(file.choose())
> survey
    立场      回答6      回答7
1   顾客   商品齐全     无回答
2   顾客   商品齐全     无回答
3   顾客   商品齐全 传统吉祥物
4   顾客   商品齐全 萌系美少女
5   顾客   商品齐全 萌系美少女
6   顾客   商品齐全 传统吉祥物
7   顾客   商品齐全 萌系美少女
8   顾客   商品齐全 萌系美少女
9   顾客   商品齐全 传统吉祥物
10  顾客   商品齐全     无回答
11  顾客   商品齐全 传统吉祥物
12  顾客   商品齐全     无回答
13  顾客   商品齐全 萌系美少女
14  顾客   商品齐全     无回答
15  顾客   商品齐全 传统吉祥物
16  顾客   商品齐全 传统吉祥物
17  顾客   商品齐全 萌系美少女
18  顾客   商品齐全 萌系美少女
19  店主   商品齐全 萌系美少女
20  店主   商品齐全 萌系美少女
21  店主   商品齐全 萌系美少女
22  店主   商品齐全 萌系美少女
23  店主   商品齐全 萌系美少女
24  店主   商品齐全 萌系美少女
25  店主   商品齐全 萌系美少女
26  店主   商品齐全 萌系美少女
27  店主   商品齐全 萌系美少女
28  店主   商品齐全 萌系美少女
29  店主   商品齐全 萌系美少女
30  店主   商品齐全 萌系美少女
31  店主   商品齐全 萌系美少女
32  店主   商品齐全 萌系美少女
33  店主   商品齐全 萌系美少女
34  店主   商品齐全 萌系美少女
35  店主   商品齐全 萌系美少女
36  店主   商品齐全 萌系美少女
37  店主   商品齐全 萌系美少女
38  店主   商品齐全 萌系美少女
39  店主   商品齐全 萌系美少女
40  店主   商品齐全 萌系美少女
41  店主   商品齐全 萌系美少女
42  店主   商品齐全 萌系美少女
43  店主   商品齐全 萌系美少女
44  店主   商品齐全 萌系美少女
45  店主   商品齐全 萌系美少女
46  店主   商品齐全 萌系美少女
47  店主   商品齐全 萌系美少女
48  店主   商品齐全 萌系美少女
49  店主   商品齐全 萌系美少女
50  店主   商品齐全 萌系美少女
51  店主   商品齐全 萌系美少女
52  店主   商品齐全 萌系美少女
53  店主   商品齐全 萌系美少女
54  店主   商品齐全 萌系美少女
55  店主   商品齐全 萌系美少女
56  店主   商品齐全 萌系美少女
57  店主   商品齐全 萌系美少女
58  店主   商品齐全 萌系美少女
59  店主   商品齐全 萌系美少女
60  店主   商品齐全 萌系美少女
61  顾客       促销 传统吉祥物
62  顾客       促销     无回答
63  顾客       促销 萌系美少女
64  顾客       促销 传统吉祥物
65  顾客       促销     无回答
66  顾客       促销 传统吉祥物
67  顾客       促销 萌系美少女
68  顾客       促销 传统吉祥物
69  顾客       促销 萌系美少女
70  顾客       促销 萌系美少女
71  顾客       促销 传统吉祥物
72  顾客       促销 传统吉祥物
73  顾客       促销 传统吉祥物
74  顾客       促销     无回答
75  顾客       促销 萌系美少女
76  顾客       促销 萌系美少女
77  顾客       促销 萌系美少女
78  顾客       促销 萌系美少女
79  顾客       促销 萌系美少女
80  顾客       促销     无回答
81  顾客       促销     无回答
82  顾客       促销 萌系美少女
83  顾客       促销 萌系美少女
84  顾客       促销 传统吉祥物
85  顾客       促销 传统吉祥物
86  顾客       促销 萌系美少女
87  顾客       促销 传统吉祥物
88  顾客       促销     无回答
89  顾客       促销 传统吉祥物
90  顾客       促销 萌系美少女
91  顾客       促销 传统吉祥物
92  顾客       促销 传统吉祥物
93  顾客       促销     无回答
94  顾客       促销     无回答
95  顾客       促销 传统吉祥物
96  顾客       促销     无回答
97  顾客       促销 传统吉祥物
98  顾客       促销 萌系美少女
99  顾客       促销 萌系美少女
100 店主       促销 萌系美少女
101 店主       促销 萌系美少女
102 店主       促销 萌系美少女
103 店主       促销 萌系美少女
104 店主       促销 萌系美少女
105 店主       促销 萌系美少女
106 店主       促销 萌系美少女
107 店主       促销 萌系美少女
108 店主       促销 萌系美少女
109 店主       促销 萌系美少女
110 店主       促销 萌系美少女
111 顾客 服务态度好 传统吉祥物
112 顾客 服务态度好     无回答
113 顾客 服务态度好 萌系美少女
114 顾客 服务态度好     无回答
115 顾客 服务态度好 传统吉祥物
116 顾客 服务态度好 传统吉祥物
117 顾客 服务态度好 萌系美少女
118 顾客 服务态度好 萌系美少女
119 顾客 服务态度好 传统吉祥物
120 顾客 服务态度好     无回答
121 顾客 服务态度好     无回答
122 顾客 服务态度好     无回答
123 顾客 服务态度好 萌系美少女
124 顾客 服务态度好 萌系美少女
125 顾客 服务态度好 传统吉祥物
126 顾客 服务态度好 萌系美少女
127 顾客 服务态度好 传统吉祥物
128 顾客 服务态度好     无回答
129 顾客 服务态度好 萌系美少女
130 顾客 服务态度好 传统吉祥物
131 顾客 服务态度好     无回答
132 顾客 服务态度好 传统吉祥物
133 顾客 服务态度好 萌系美少女
134 顾客 服务态度好     无回答
135 顾客 服务态度好 传统吉祥物
136 顾客 服务态度好 传统吉祥物
137 顾客 服务态度好 萌系美少女
138 顾客 服务态度好 萌系美少女
139 顾客 服务态度好     无回答
140 顾客 服务态度好     无回答
141 顾客 服务态度好 传统吉祥物
142 顾客 服务态度好 萌系美少女
143 顾客 服务态度好 萌系美少女
144 顾客 服务态度好 萌系美少女
145 顾客 服务态度好 传统吉祥物
146 店主 服务态度好 萌系美少女
147 店主 服务态度好 萌系美少女
148 店主 服务态度好 萌系美少女
149 店主 服务态度好 萌系美少女
150 店主 服务态度好 萌系美少女
151 店主 服务态度好 萌系美少女
152 店主 服务态度好 萌系美少女
153 店主 服务态度好 萌系美少女
154 店主 服务态度好 萌系美少女
155 顾客       活动 传统吉祥物
156 顾客       活动 传统吉祥物
157 顾客       活动     无回答
158 顾客       活动 传统吉祥物
159 顾客       活动     无回答
160 顾客       活动 传统吉祥物
161 顾客       活动 传统吉祥物
162 顾客       活动     无回答
163 顾客       活动 萌系美少女
164 顾客       活动 传统吉祥物
165 顾客       活动     无回答
166 店主       活动 萌系美少女
167 店主       活动 萌系美少女
168 店主       活动 萌系美少女
169 店主       活动 萌系美少女
170 店主       活动 萌系美少女
171 店主       活动 萌系美少女
172 店主       活动 萌系美少女
173 店主       活动 萌系美少女
174 店主       活动 萌系美少女
175 店主       活动 萌系美少女
176 店主       活动 萌系美少女
177 店主       活动 萌系美少女
178 店主       活动 萌系美少女
179 店主       活动 萌系美少女
180 店主       活动 萌系美少女
181 店主       活动 萌系美少女
182 店主       活动 萌系美少女
183 店主       活动 萌系美少女
184 店主       活动 萌系美少女
185 店主       活动 萌系美少女
186 店主       活动 萌系美少女
187 店主       活动 萌系美少女
188 店主       活动 萌系美少女
189 店主       活动 萌系美少女
190 店主       活动 萌系美少女
191 店主       活动 萌系美少女
192 店主       活动 萌系美少女
193 店主       活动 萌系美少女
194 店主       活动 萌系美少女
195 店主       活动 萌系美少女
196 店主       活动 萌系美少女
197 店主       活动 萌系美少女
198 店主       活动 萌系美少女
199 店主       活动 萌系美少女
200 店主       活动 萌系美少女
201 店主       活动 传统吉祥物
202 店主       活动 传统吉祥物
203 店主       活动 传统吉祥物

从中选择出需要调查的关注数据

> survey %>% select(立场,回答6)
    立场      回答6
1   顾客   商品齐全
2   顾客   商品齐全
3   顾客   商品齐全
4   顾客   商品齐全
5   顾客   商品齐全
6   顾客   商品齐全
7   顾客   商品齐全
8   顾客   商品齐全
9   顾客   商品齐全
10  顾客   商品齐全
11  顾客   商品齐全
12  顾客   商品齐全
13  顾客   商品齐全
14  顾客   商品齐全
15  顾客   商品齐全
16  顾客   商品齐全
17  顾客   商品齐全
18  顾客   商品齐全
19  店主   商品齐全
20  店主   商品齐全
21  店主   商品齐全
22  店主   商品齐全
23  店主   商品齐全
24  店主   商品齐全
25  店主   商品齐全
26  店主   商品齐全
27  店主   商品齐全
28  店主   商品齐全
29  店主   商品齐全
30  店主   商品齐全
31  店主   商品齐全
32  店主   商品齐全
33  店主   商品齐全
34  店主   商品齐全
35  店主   商品齐全
36  店主   商品齐全
37  店主   商品齐全
38  店主   商品齐全
39  店主   商品齐全
40  店主   商品齐全
41  店主   商品齐全
42  店主   商品齐全
43  店主   商品齐全
44  店主   商品齐全
45  店主   商品齐全
46  店主   商品齐全
47  店主   商品齐全
48  店主   商品齐全
49  店主   商品齐全
50  店主   商品齐全
51  店主   商品齐全
52  店主   商品齐全
53  店主   商品齐全
54  店主   商品齐全
55  店主   商品齐全
56  店主   商品齐全
57  店主   商品齐全
58  店主   商品齐全
59  店主   商品齐全
60  店主   商品齐全
61  顾客       促销
62  顾客       促销
63  顾客       促销
64  顾客       促销
65  顾客       促销
66  顾客       促销
67  顾客       促销
68  顾客       促销
69  顾客       促销
70  顾客       促销
71  顾客       促销
72  顾客       促销
73  顾客       促销
74  顾客       促销
75  顾客       促销
76  顾客       促销
77  顾客       促销
78  顾客       促销
79  顾客       促销
80  顾客       促销
81  顾客       促销
82  顾客       促销
83  顾客       促销
84  顾客       促销
85  顾客       促销
86  顾客       促销
87  顾客       促销
88  顾客       促销
89  顾客       促销
90  顾客       促销
91  顾客       促销
92  顾客       促销
93  顾客       促销
94  顾客       促销
95  顾客       促销
96  顾客       促销
97  顾客       促销
98  顾客       促销
99  顾客       促销
100 店主       促销
101 店主       促销
102 店主       促销
103 店主       促销
104 店主       促销
105 店主       促销
106 店主       促销
107 店主       促销
108 店主       促销
109 店主       促销
110 店主       促销
111 顾客 服务态度好
112 顾客 服务态度好
113 顾客 服务态度好
114 顾客 服务态度好
115 顾客 服务态度好
116 顾客 服务态度好
117 顾客 服务态度好
118 顾客 服务态度好
119 顾客 服务态度好
120 顾客 服务态度好
121 顾客 服务态度好
122 顾客 服务态度好
123 顾客 服务态度好
124 顾客 服务态度好
125 顾客 服务态度好
126 顾客 服务态度好
127 顾客 服务态度好
128 顾客 服务态度好
129 顾客 服务态度好
130 顾客 服务态度好
131 顾客 服务态度好
132 顾客 服务态度好
133 顾客 服务态度好
134 顾客 服务态度好
135 顾客 服务态度好
136 顾客 服务态度好
137 顾客 服务态度好
138 顾客 服务态度好
139 顾客 服务态度好
140 顾客 服务态度好
141 顾客 服务态度好
142 顾客 服务态度好
143 顾客 服务态度好
144 顾客 服务态度好
145 顾客 服务态度好
146 店主 服务态度好
147 店主 服务态度好
148 店主 服务态度好
149 店主 服务态度好
150 店主 服务态度好
151 店主 服务态度好
152 店主 服务态度好
153 店主 服务态度好
154 店主 服务态度好
155 顾客       活动
156 顾客       活动
157 顾客       活动
158 顾客       活动
159 顾客       活动
160 顾客       活动
161 顾客       活动
162 顾客       活动
163 顾客       活动
164 顾客       活动
165 顾客       活动
166 店主       活动
167 店主       活动
168 店主       活动
169 店主       活动
170 店主       活动
171 店主       活动
172 店主       活动
173 店主       活动
174 店主       活动
175 店主       活动
176 店主       活动
177 店主       活动
178 店主       活动
179 店主       活动
180 店主       活动
181 店主       活动
182 店主       活动
183 店主       活动
184 店主       活动
185 店主       活动
186 店主       活动
187 店主       活动
188 店主       活动
189 店主       活动
190 店主       活动
191 店主       活动
192 店主       活动
193 店主       活动
194 店主       活动
195 店主       活动
196 店主       活动
197 店主       活动
198 店主       活动
199 店主       活动
200 店主       活动
201 店主       活动
202 店主       活动
203 店主       活动

展现数据

> table1 <- survey %>% select(立场,回答6) %>% table;table1
      回答6
立场   促销 服务态度好 活动 商品齐全
  店主   11          9   38       42
  顾客   39         35   11       18
> library(ggplot2)
> table1 %>% as.data.frame %>% ggplot(aes (x=立场,y=Freq, fill=回答6)) + geom_bar(stat="identity") + ylab("人数")

导入用户调查答卷表之后,select出人员类别和对销售有影响的因素,然后使用图形化的方式表达出不同角色的人员对销售决定因素的主观差异。

由上图可见,店主注重商品齐全度和活动,而顾客更看重销售态度和促销活动。

搭建R语言环境

R是一套完整的数据处理、计算和制图软件系统。其功能包括:数据存储和处理系统;数组运算工具(其向量、矩阵运算方面功能尤其强大);完整连贯的统计分析工具;优秀的统计制图功能;简便而强大的编程语言:可操纵数据的输入和输出,可实现分支、循环,用户可自定义功能。
与其说R是一种统计软件,还不如说R是一种数学计算的环境,因为R并不是仅仅提供若干统计程序、使用者只需指定数据库和若干参数便可进行一个统计分析。R的思想是:它可以提供一些集成的统计工具,但更大量的是它提供各种数学计算、统计计算的函数,从而使使用者能灵活机动的进行数据分析,甚至创造出符合需要的新的统计计算方法。
RStudio是一款跨平台的R语言IDE,把常用的窗口都整合在让开发者,不用在命令行和绘图窗口跳来跳去,RStudio全部都在一个窗口,让你更方便的来控制。R语言,一直来都没有一个很好的IDE,RStudio算是给R补充了这一块。

软件安装

  • ubuntu下安装r语言以及rstudio
sudo apt install -y r-base r-base-dev
sudo apt install -y rstudio
  • Windows下安装r语言以及rstudio

使用国内的R程序镜像源:R base
使用官方的rstudio下载页面:RStudio

使用初步

模拟百分之一中奖率的一次抽奖活动

> choujiang <- c("未中奖","中奖") 
> sample(choujiang, 100, prob=c(99,1), replace = TRUE)
  [1] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
  [7] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [13] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [19] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [25] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [31] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [37] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [43] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [49] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [55] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [61] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [67] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [73] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [79] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [85] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [91] "未中奖" "未中奖" "未中奖" "未中奖" "未中奖" "未中奖"
 [97] "未中奖" "未中奖" "未中奖" "未中奖"

查看投掷100次骰子各个面出现的几率

> table(sample(1:6,100,replace = TRUE))

 1  2  3  4  5  6 
13 24 14 18 15 16 

绘制直方图

> hist(sample(1:6,100,replace = TRUE), breaks=0:6)

安装插件

要使用ggplot2插件,需要在联网情况下,在rstudio的命令窗口执行

install.packages("ggplot2")

tips:注意"C:\Program Files\R\R-3.4.1\library"目录要有写权限。

> res <- replicate(10000, mean(sample(1:6,100,replace = TRUE)))
> hist(res)
> library(ggplot2)
> dice <- data.frame(骰子 = res)
> ggplot(dice, aes(x=骰子))+geom_histogram(bindwith = .1,fill="steelblue",color="black",alpha=0.5)+xlab("期望值")+ylab("次数")+ggtitle("掷100次骰子后的期望值")