如何解决我试图比较 Soc Media 方面的组以进行营销分析评估,但我被卡住了
library(lattice)
library(multcomp)
library(dplyr)
ad.df <- read.csv("8_clickstream.csv",stringsAsFactors = TRUE)
ad.df_readme <- read.csv("8_clickstream_readme.csv",stringsAsFactors = TRUE)
summary(ad.df)
str(ad.df)
na.omit(ad.df)
mean(ad.df$time_spent_homepage_sec[ad.df$condition == "treatment"]) ## Here I get a NaN result,I don't kNow why...
str(ad.df)
'data.frame': 30000 obs. of 6 variables:
$ visit_date : Factor w/ 30 levels "01/04/2020","02/04/2020",..: 30 30 30 30 30 30 30 30 30 30 ...
$ condition : Factor w/ 2 levels "quality","taste": 2 2 2 2 2 2 2 2 2 2 ...
$ time_spent_homepage_sec: num 49 48.9 49.1 49.3 50.4 ...
$ clicked_article : int 1 1 1 0 0 1 1 1 1 0 ...
$ clicked_like : int 0 0 0 1 1 0 0 0 0 0 ...
$ clicked_share : int 1 0 0 0 0 0 0 0 0 0 ...
###
head(ad.df)
visit_date condition time_spent_homepage_sec clicked_article clicked_like
1 31/03/2020 taste 49.01161 1 0
2 31/03/2020 taste 48.86452 1 0
3 31/03/2020 taste 49.07467 1 0
4 31/03/2020 taste 49.26011 0 1
5 31/03/2020 taste 50.37190 0 1
6 31/03/2020 taste 49.08458 1 0
clicked_share
1 1
2 0
3 0
4 0
5 0
6 0
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。