我试图比较 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 (将#修改为@)