setwd("C:/Users/ASUS/Desktop/快手")

1.读取并处理数据

data = read_csv("Within_Random_PK.csv")

# 修改列名：使用sub()函数移除列名前面的"data."前缀
#new_column_names = sub("^author_live_downsample\\.", "", names(data))
#names(data) = new_column_names

# 过滤数据
data <- data %>%
  filter(is_pk_live == 1) %>% filter(!is.na(gender)) %>% filter(!is.na(other_gender))

1.1 对于每个author按照p_date的顺序对于live_id进行排序(处理为panel结构)

data = data %>%
  group_by(author_id) %>%
  mutate(live_id_order = row_number(live_id)) %>% ungroup()

max(data$live_id_order)

## [1] 407

1.2 处理categorical variables

处理类别变量函数

assign_numbers <- function(data, column) {
  unique_categories <- unique(data[[column]])
  category_numbers <- match(data[[column]], unique_categories)
  data[[paste0(column, "_number")]] <- category_numbers - 1 # 将编号减1，使得"M"对应1，"F"对应0
  return(data)
}

性别：gender

table(data$gender)

## 
##      F      M      U 
## 231114  24165     18

data <- data %>%
  mutate(gender_number = case_when(
    gender == "F"        ~ 0,
    gender == "M"        ~ 1,
    gender == "U"        ~ 2
  ))

table(data$gender_number)

## 
##      0      1      2 
## 231114  24165     18

table(data$other_gender)

## 
##      F      M      U 
## 221775  33450     72

data <- data %>%
  mutate(other_gender_number = case_when(
    other_gender == "F"        ~ 0,
    other_gender == "M"        ~ 1,
    other_gender == "U"        ~ 2
  ))

table(data$other_gender_number)

## 
##      0      1      2 
## 221775  33450     72

# 过滤性别为U的
data <- data %>%
  filter(gender!="U") %>% filter(other_gender!="U")

年龄：age_range

data <- assign_numbers(data, "age_range")
table(data$age_range_number)

## 
##     0     1     2     3     4     5     6     7 
## 81629 81154 62163  8474 14291  7233   262     1

table(data$age_range)

## 
##    0-12   12-17   18-23   24-30   31-40   41-49     50+ UNKNOWN 
##     262    7233   81154   81629   62163   14291    8474       1

地区：fre_country_region

data <- assign_numbers(data, "fre_country_region")
table(data$fre_country_region_number)

## 
##      0      1      2 
##  99415 155065    727

table(data$fre_country_region)

## 
## UNKNOWN    北方    南方 
##     727  155065   99415

城市：fre_city_level

data <- assign_numbers(data, "fre_city_level")
table(data$fre_city_level_number)

## 
##     0     1     2     3     4     5     6 
## 45831 47928 48896 43884 54370 13514   784

table(data$fre_city_level)

## 
##    UNKNOWN   二线城市   三线城市   四线城市   五线城市 新一线城市   一线城市 
##        784      48896      54370      47928      45831      43884      13514

作者类型：author_type

table(data$author_type)

## 
## 电商主播 秀场主播 游戏主播 
##       92   252905     2210

data <- data %>%
  mutate(author_type_number = case_when(
    author_type == "电商主播"        ~ 0,
    author_type == "秀场主播"        ~ 1,
    author_type == "游戏主播"        ~ 2,
    TRUE        ~ 3
  ))

table(data$author_type_number)

## 
##      0      1      2 
##     92 252905   2210

table(data$other_author_type)

## 
##      大V 电商主播 秀场主播 游戏主播 
##        1      108   253109     1989

data <- data %>%
  mutate(other_author_type_number = case_when(
    other_author_type == "电商主播"        ~ 0,
    other_author_type == "秀场主播"        ~ 1,
    other_author_type == "游戏主播"        ~ 2,
    TRUE        ~ 3
  ))

table(data$other_author_type_number)

## 
##      0      1      2      3 
##    108 253109   1989      1

作者细分类型：author_category_type

table(data$author_category_type)

## 
##        A        B        C        D 职业电商 
##    36936   162603    29126    26417      125

data <- data %>%
  mutate(author_category_type_number = case_when(
    author_category_type == "A"        ~ 0,
    author_category_type == "B"        ~ 1,
    author_category_type == "C"        ~ 2,
    author_category_type == "D"        ~ 3,
    author_category_type == "职业电商" ~ 4
  ))

table(data$author_category_type_number)

## 
##      0      1      2      3      4 
##  36936 162603  29126  26417    125

table(data$other_author_category_type)

## 
##        A        B        C        D 职业电商 
##    36207   163843    30424    24636       97

data <- data %>%
  mutate(other_author_category_type_number = case_when(
    other_author_category_type == "A"        ~ 0,
    other_author_category_type == "B"        ~ 1,
    other_author_category_type == "C"        ~ 2,
    other_author_category_type == "D"        ~ 3,
    other_author_category_type == "职业电商" ~ 4
  ))

table(data$other_author_category_type_number)

## 
##      0      1      2      3      4 
##  36207 163843  30424  24636     97

主播收入能力：author_income_range

table(data$author_income_range)

## 
##      (0,10]     (10,50] (1000,5000]    (50,500]  (500,1000]     (5000+) 
##       17125       20782       33185      127044       52321         881 
##      无营收 
##        3869

data <- data %>%
  mutate(author_income_range_number = case_when(
    author_income_range == "(0,10]"       ~ 0,
    author_income_range == "(10,50]"      ~ 1,
    author_income_range == "(1000,5000]"  ~ 2,
    author_income_range == "(50,500]"     ~ 3,
    author_income_range == "(500,1000]"   ~ 4,
    author_income_range == "(5000+)"      ~ 5,
    author_income_range == "无营收"       ~ 6
  ))

table(data$author_income_range_number)

## 
##      0      1      2      3      4      5      6 
##  17125  20782  33185 127044  52321    881   3869

table(data$other_author_income_range)

## 
##      (0,10]     (10,50] (1000,5000]    (50,500]  (500,1000]     (5000+) 
##       16507       20859       36224      124202       53360         976 
##      无营收 
##        3079

data <- data %>%
  mutate(other_author_income_range_number = case_when(
    other_author_income_range == "(0,10]"       ~ 0,
    other_author_income_range == "(10,50]"      ~ 1,
    other_author_income_range == "(1000,5000]"  ~ 2,
    other_author_income_range == "(50,500]"     ~ 3,
    other_author_income_range == "(500,1000]"   ~ 4,
    other_author_income_range == "(5000+)"      ~ 5,
    other_author_income_range == "无营收"       ~ 6
  ))

table(data$other_author_income_range_number)

## 
##      0      1      2      3      4      5      6 
##  16507  20859  36224 124202  53360    976   3079

粉丝范围：fans_range

table(data$fans_range)

## 
##    0-100   100-1k 10w-100w    1k-1w   1w-10w 
##     6490    46604    22566    90465    89082

data <- data %>%
  mutate(fans_range_number = case_when(
    fans_range == "0-100"     ~ 0,
    fans_range == "100-1k"    ~ 1,
    fans_range == "10w-100w"  ~ 2,
    fans_range == "1k-1w"     ~ 3,
    fans_range == "1w-10w"    ~ 4
  ))

table(data$fans_range_number)

## 
##     0     1     2     3     4 
##  6490 46604 22566 90465 89082

table(data$other_fans_range)

## 
##      0-100     100-1k     1000w+ 100w-1000w   10w-100w      1k-1w     1w-10w 
##       7466      49143          1       2234      21289      86822      88252

data <- data %>%
  mutate(other_fans_range_number = case_when(
    other_fans_range == "0-100"     ~ 0,
    other_fans_range == "100-1k"    ~ 1,
    other_fans_range == "10w-100w"  ~ 2,
    other_fans_range == "1k-1w"     ~ 3,
    other_fans_range == "1w-10w"    ~ 4
  ))

table(data$other_fans_range_number)

## 
##     0     1     2     3     4 
##  7466 49143 21289 86822 88252

1.3 处理treatment variables

gender_pair:主播性别对比：性别分成四种：（男男1，男女2，女男3，女女4）

data = data %>% mutate(gender_pair= case_when(
          gender == "M" & other_gender == "M"~1,
          gender == "M" & other_gender == "F"~2, 
          gender == "F" & other_gender == "M"~3, 
          gender == "F" & other_gender == "F"~4
))

(1.1) gender_compair: 是同性还是异性：分为两种（同性：0,异性：1）

data = data %>% mutate(gender_compair= case_when(
          gender_number == other_gender_number~0,
          TRUE~1
))

fans_num_pair:主播粉丝数对比：分成两种（大于对方1，小于对方0）

data <- data %>%
  mutate(fans_num_pair = case_when(
    fans_user_num >= other_fans_user_num ~ 1,
    TRUE ~ 0  # 处理其他情况
))

(2.1) 粉丝范围对比：分成3种（==于对方1，>对方2，<对方3）

data <- data %>%
  mutate(fans_range_pair = case_when(
    fans_range_number == other_fans_range_number~1,
    fans_range_number > other_fans_range_number~2,
    fans_range_number < other_fans_range_number~3
  ))

(2.2) 粉丝团大小对比：分成两种（大于对方1，小于对方0）

data <- data %>%
  mutate(fans_group_pair = case_when(
    fans_group_fans_num >= other_fans_group_fans_num ~ 1,
    TRUE ~ 0  # 处理其他情况
  ))

author_type_pair:(相同1，不同0)

data <- data %>%
  mutate(author_type_pair = case_when(
    author_type == other_author_type~1,
    TRUE ~ 0
  ))

author_income_range_pair:分成3种（==1，>对方2，小于对方3）

data <- data %>%
  mutate(author_income_range_pair = case_when(
    author_income_range_number == other_author_income_range_number~1,
    author_income_range_number > other_author_income_range_number~2,
    author_income_range_number < other_author_income_range_number~3
  ))

2 查看panel data数据结构

# 删掉一些live_id_order太长的author
result <- data %>%
  group_by(author_id) %>%
  filter(n() < 200) %>%
  select(author_id) %>%
  distinct()

data <- data %>%
  semi_join(result, by = "author_id")

查看数据treatment

library(fect)

## Registered S3 method overwritten by 'GGally':
##   method from   
##   +.gg   ggplot2

library(panelView)

## ## See bit.ly/panelview4r for more info.
## ## Report bugs -> yiqingxu@stanford.edu.

library(patchwork)

panelview(total_cost_amt ~ gender_pair, data = data, index = c("author_id", "live_id_order"), 
  axis.lab = "time", xlab = "live_id_order", ylab = "author_id", 
  background = "white", main = "Data: gender pair")

## If the number of units is more than 300, we set "gridOff = TRUE".

## If the number of units is more than 500, we randomly select 500 units to present.
##         You can set "display.all = TRUE" to show all units.

## 4 treatment levels.

library(fect)
library(panelView)
library(patchwork)

panelview(total_cost_amt ~ gender_compair, data = data, index = c("author_id", "live_id_order"), 
  axis.lab = "time", xlab = "live_id_order", ylab = "author_id", 
  background = "white", main = "Data: gender compair")

## If the number of units is more than 300, we set "gridOff = TRUE".

## If the number of units is more than 500, we randomly select 500 units to present.
##         You can set "display.all = TRUE" to show all units.

library(fect)
library(panelView)
library(patchwork)

panelview(total_cost_amt ~ fans_range_pair, data = data, index = c("author_id", "live_id_order"), 
  axis.lab = "time", xlab = "live_id_order", ylab = "author_id", 
  background = "white", main = "Data: fans_range_pair")

## If the number of units is more than 300, we set "gridOff = TRUE".

## If the number of units is more than 500, we randomly select 500 units to present.
##         You can set "display.all = TRUE" to show all units.

## 3 treatment levels.

library(fect)
library(panelView)
library(patchwork)

panelview(total_cost_amt ~ fans_num_pair, data = data, index = c("author_id", "live_id_order"), 
  axis.lab = "time", xlab = "live_id_order", ylab = "author_id", 
  background = "white", main = "Data:fans_num_pair")

## If the number of units is more than 300, we set "gridOff = TRUE".

## If the number of units is more than 500, we randomly select 500 units to present.
##         You can set "display.all = TRUE" to show all units.

library(fect)
library(panelView)
library(patchwork)

panelview(total_cost_amt ~ fans_group_pair, data = data, index = c("author_id", "live_id_order"), 
  axis.lab = "time", xlab = "live_id_order", ylab = "author_id", 
  background = "white", main = "Data:fans_group_pair")

## If the number of units is more than 300, we set "gridOff = TRUE".

## If the number of units is more than 500, we randomly select 500 units to present.
##         You can set "display.all = TRUE" to show all units.

library(fect)
library(panelView)
library(patchwork)

panelview(total_cost_amt ~ author_type_pair, data = data, index = c("author_id", "live_id_order"), 
  axis.lab = "time", xlab = "live_id_order", ylab = "author_id", 
  background = "white", main = "Data:author_type_pair")

## If the number of units is more than 300, we set "gridOff = TRUE".

## If the number of units is more than 500, we randomly select 500 units to present.
##         You can set "display.all = TRUE" to show all units.

library(fect)
library(panelView)
library(patchwork)

panelview(total_cost_amt ~ author_income_range_pair, data = data, index = c("author_id", "live_id_order"), 
  axis.lab = "time", xlab = "live_id_order", ylab = "author_id", 
  background = "white", main = "Data:author_income_range_pair")

## If the number of units is more than 300, we set "gridOff = TRUE".

## If the number of units is more than 500, we randomly select 500 units to present.
##         You can set "display.all = TRUE" to show all units.

## 3 treatment levels.

查看数据outcome

panelview(total_cost_amt ~ gender_pair, data = data, index = c("author_id", "live_id_order"), 
  axis.lab = "time", xlab = "live_id_order", ylab = "author", 
  theme.bw = TRUE, type = "outcome", main = "Data: Outcome")

## If the number of units is more than 500, we randomly select 500 units to present.
##         You can set "display.all = TRUE" to show all units.

## 4 treatment levels.

查看live_id_order分布

# 绘制live_id分布的直方图
ggplot(data, aes(x = live_id_order)) +
  geom_histogram(binwidth =1, fill = "steelblue", color = "black") +
  labs(title = "Live ID Distribution",
       x = "Live ID",
       y = "Frequency") +
  theme_minimal()

# 存储处理好的数据
write.csv(data, file = "Within_Random_pk_clean.csv", row.names = FALSE)

3.Panel data regression

# 读取
data= read_csv( "Within_Random_pk_clean.csv")

## Rows: 253833 Columns: 99
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (14): gender, fans_range, author_type, author_category_type, author_inco...
## dbl (85): author_id, live_id, p_date, is_pk_live, pk_id, pk_type, valid_play...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

library(plm)

## 
## 载入程序包：'plm'

## The following objects are masked from 'package:dplyr':
## 
##     between, lag, lead

pdata <- pdata.frame(data, index = c("author_id", "live_id_order"))

3.1 直播间相关DV

(1) 直播间打赏金额：total_cost_amt

data %>%
  filter(total_cost_amt < 5000) %>%
  ggplot(aes(x = total_cost_amt)) +
  geom_histogram(binwidth = 100, fill = "steelblue", color = "black") +
  labs(title = "Distribution of Total Cost Amount (Less Than 50,00)",
       x = "Total Cost Amount",
       y = "Frequency") +
  theme_minimal()

(1)自变量：gender_pair

model= plm(total_cost_amt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = total_cost_amt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -755692.485     -89.387       0.000      41.142 1511362.595 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2  -72.331    162.026 -0.4464   0.6553
## factor(gender_pair)3 -385.512    347.201 -1.1103   0.2669
## factor(gender_pair)4 -356.731    338.161 -1.0549   0.2915
## 
## Total Sum of Squares:    5.5598e+12
## Residual Sum of Squares: 5.5598e+12
## R-Squared:      6.6371e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.414304 on 3 and 187266 DF, p-value: 0.74273

model= plm(log(total_cost_amt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")

## Warning in get(.Generic)(x, ...): 产生了NaNs

summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(total_cost_amt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66365, T = 1-197, N = 253754
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -9.38070 -0.70531  0.00000  0.47679 10.60962 
## 
## Coefficients:
##                        Estimate Std. Error t-value  Pr(>|t|)    
## factor(gender_pair)2 -0.0047875  0.0570745 -0.0839    0.9332    
## factor(gender_pair)3 -0.6166172  0.1223062 -5.0416 4.621e-07 ***
## factor(gender_pair)4 -0.5267187  0.1191191 -4.4218 9.794e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    689730
## Residual Sum of Squares: 689600
## R-Squared:      0.00018099
## Adj. R-Squared: -0.35535
## F-statistic: 11.2951 on 3 and 187190 DF, p-value: 2.0979e-07

(1.1) 自变量：gender_compair

model= plm(log(total_cost_amt+1) ~ gender_compair + factor(gender), data = pdata,model = "within", effect = "twoways")

## Warning in get(.Generic)(x, ...): 产生了NaNs

summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(total_cost_amt + 1) ~ gender_compair + factor(gender), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66365, T = 1-197, N = 253754
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -9.38057 -0.70526  0.00000  0.47689 10.60956 
## 
## Coefficients:
##                  Estimate Std. Error t-value  Pr(>|t|)    
## gender_compair  -0.071852   0.026199 -2.7425  0.006098 ** 
## factor(gender)M  0.591001   0.108753  5.4343 5.507e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    689730
## Residual Sum of Squares: 689610
## R-Squared:      0.00017164
## Adj. R-Squared: -0.35535
## F-statistic: 16.0679 on 2 and 187191 DF, p-value: 1.0529e-07

(2)自变量：fans_num_pair

model= plm(total_cost_amt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = total_cost_amt ~ fans_num_pair, data = pdata, effect = "twoways", 
##     model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -755701.595     -89.025       0.000      40.909 1511353.238 
## 
## Coefficients:
##               Estimate Std. Error t-value Pr(>|t|)
## fans_num_pair  -27.672     27.028 -1.0238   0.3059
## 
## Total Sum of Squares:    5.5598e+12
## Residual Sum of Squares: 5.5598e+12
## R-Squared:      5.5971e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.04816 on 1 and 187268 DF, p-value: 0.30593

model= plm(log(total_cost_amt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")

## Warning in get(.Generic)(x, ...): 产生了NaNs

summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(total_cost_amt + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66365, T = 1-197, N = 253754
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -9.35741 -0.70655  0.00000  0.47503 10.60945 
## 
## Coefficients:
##                 Estimate Std. Error t-value  Pr(>|t|)    
## fans_num_pair -0.0469856  0.0095231 -4.9339 8.068e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    689730
## Residual Sum of Squares: 689640
## R-Squared:      0.00013003
## Adj. R-Squared: -0.3554
## F-statistic: 24.3431 on 1 and 187192 DF, p-value: 8.0684e-07

(2.1) 自变量：fans_range_pair

model= plm(total_cost_amt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = total_cost_amt ~ factor(fans_range_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -755674.765     -92.341       0.000      41.371 1511325.623 
## 
## Coefficients:
##                          Estimate Std. Error t-value Pr(>|t|)  
## factor(fans_range_pair)2  -58.300     32.153 -1.8132   0.0698 .
## factor(fans_range_pair)3   23.995     35.757  0.6711   0.5022  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    5.5175e+12
## Residual Sum of Squares: 5.5174e+12
## R-Squared:      2.3329e-05
## Adj. R-Squared: -0.35887
## F-statistic: 2.15971 on 2 and 185147 DF, p-value: 0.11536

model= plm(log(total_cost_amt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")

## Warning in get(.Generic)(x, ...): 产生了NaNs

summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(total_cost_amt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66250, T = 1-197, N = 251523
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -9.38450 -0.70347  0.00000  0.46853 10.61147 
## 
## Coefficients:
##                           Estimate Std. Error t-value Pr(>|t|)  
## factor(fans_range_pair)2 -0.026922   0.011295 -2.3834  0.01715 *
## factor(fans_range_pair)3  0.021714   0.012563  1.7284  0.08392 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    680470
## Residual Sum of Squares: 680430
## R-Squared:      5.6739e-05
## Adj. R-Squared: -0.35895
## F-statistic: 5.2508 on 2 and 185075 DF, p-value: 0.0052441

(2.2) 自变量：fans_group_pair

model= plm(total_cost_amt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = total_cost_amt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -755699.320     -88.295       0.000      40.693 1511365.968 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair  -10.488     28.557 -0.3673   0.7134
## 
## Total Sum of Squares:    5.5598e+12
## Residual Sum of Squares: 5.5598e+12
## R-Squared:      7.2023e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.134876 on 1 and 187268 DF, p-value: 0.71343

model= plm(log(total_cost_amt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")

## Warning in get(.Generic)(x, ...): 产生了NaNs

summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(total_cost_amt + 1) ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66365, T = 1-197, N = 253754
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -9.38101 -0.70599  0.00000  0.47584 10.61942 
## 
## Coefficients:
##                  Estimate Std. Error t-value  Pr(>|t|)    
## fans_group_pair -0.040814   0.010062 -4.0563 4.987e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    689730
## Residual Sum of Squares: 689670
## R-Squared:      8.7891e-05
## Adj. R-Squared: -0.35546
## F-statistic: 16.4539 on 1 and 187192 DF, p-value: 4.9867e-05

自变量：author_type_pair

model= plm(total_cost_amt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = total_cost_amt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -755692.447     -88.827       0.000      41.107 1511362.463 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair   106.72     124.76  0.8554   0.3923
## 
## Total Sum of Squares:    5.5598e+12
## Residual Sum of Squares: 5.5598e+12
## R-Squared:      3.9073e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.731708 on 1 and 187268 DF, p-value: 0.39233

model= plm(log(total_cost_amt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")

## Warning in get(.Generic)(x, ...): 产生了NaNs

summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(total_cost_amt + 1) ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66365, T = 1-197, N = 253754
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -9.38088 -0.70637  0.00000  0.47548 10.60933 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)  
## author_type_pair 0.086111   0.043950  1.9593  0.05008 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    689730
## Residual Sum of Squares: 689710
## R-Squared:      2.0507e-05
## Adj. R-Squared: -0.35555
## F-statistic: 3.83891 on 1 and 187192 DF, p-value: 0.050078

(3.1) 自变量：author_income_range_pair

model= plm(total_cost_amt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = total_cost_amt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -755698.982     -95.211       0.000      44.037 1511333.637 
## 
## Coefficients:
##                                   Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2   6.5881    33.8305  0.1947  0.84560  
## factor(author_income_range_pair)3  86.6338    34.1767  2.5349  0.01125 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    5.5598e+12
## Residual Sum of Squares: 5.5596e+12
## R-Squared:      3.555e-05
## Adj. R-Squared: -0.35541
## F-statistic: 3.32875 on 2 and 187267 DF, p-value: 0.03584

model= plm(log(total_cost_amt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")

## Warning in get(.Generic)(x, ...): 产生了NaNs

summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(total_cost_amt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66365, T = 1-197, N = 253754
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -9.35276 -0.70583  0.00000  0.47504 10.61765 
## 
## Coefficients:
##                                    Estimate Std. Error t-value Pr(>|t|)    
## factor(author_income_range_pair)2 0.0095071  0.0119201  0.7976   0.4251    
## factor(author_income_range_pair)3 0.0560479  0.0120418  4.6545 3.25e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    689730
## Residual Sum of Squares: 689650
## R-Squared:      0.0001167
## Adj. R-Squared: -0.35543
## F-statistic: 10.9238 on 2 and 187191 DF, p-value: 1.8035e-05

(2) 人均观看：avg_valid_play_duration

data %>%
  ggplot(aes(x = avg_valid_play_duration)) +
  geom_histogram(binwidth = 10, fill = "steelblue", color = "black") +
  labs(title = "Distribution of avg_valid_play_duration",
       x = "avg_valid_play_duration",
       y = "Frequency") +
  theme_minimal()

(1)自变量：gender_pair

model= plm(avg_valid_play_duration ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_valid_play_duration ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2281270.0   -11783.4        0.0     7628.6  1645279.4 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)    
## factor(gender_pair)2  -1374.8     2250.9 -0.6108   0.5413    
## factor(gender_pair)3  43097.8     4823.3  8.9352   <2e-16 ***
## factor(gender_pair)4  45737.6     4697.8  9.7361   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1.0737e+15
## Residual Sum of Squares: 1.073e+15
## R-Squared:      0.00069825
## Adj. R-Squared: -0.35452
## F-statistic: 43.6165 on 3 and 187266 DF, p-value: < 2.22e-16

model= plm(log(avg_valid_play_duration+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_valid_play_duration + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.73773  -0.14983   0.00000   0.18291  10.37063 
## 
## Coefficients:
##                        Estimate Std. Error t-value  Pr(>|t|)    
## factor(gender_pair)2 -0.0032417  0.0183722 -0.1764    0.8599    
## factor(gender_pair)3  0.2781569  0.0393694  7.0653 1.608e-12 ***
## factor(gender_pair)4  0.2770182  0.0383443  7.2245 5.048e-13 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    71510
## Residual Sum of Squares: 71485
## R-Squared:      0.00035859
## Adj. R-Squared: -0.35498
## F-statistic: 22.3919 on 3 and 187266 DF, p-value: 1.7274e-14

(1.1) 自变量：gender_compair

model= plm(log(avg_valid_play_duration+1) ~ gender_compair + factor(gender), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_valid_play_duration + 1) ~ gender_compair + 
##     factor(gender), data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.73783  -0.14982   0.00000   0.18292  10.37055 
## 
## Coefficients:
##                    Estimate  Std. Error t-value  Pr(>|t|)    
## gender_compair   0.00021045  0.00843076  0.0250    0.9801    
## factor(gender)M -0.28032720  0.03500670 -8.0078 1.174e-15 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    71510
## Residual Sum of Squares: 71485
## R-Squared:      0.00035835
## Adj. R-Squared: -0.35497
## F-statistic: 33.5657 on 2 and 187267 DF, p-value: 2.6621e-15

(2)自变量：fans_num_pair

model= plm(avg_valid_play_duration ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_valid_play_duration ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2280240.4   -11802.7        0.0     7591.8  1660223.6 
## 
## Coefficients:
##               Estimate Std. Error t-value Pr(>|t|)   
## fans_num_pair  -1174.0      375.6 -3.1257 0.001774 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1.0737e+15
## Residual Sum of Squares: 1.0737e+15
## R-Squared:      5.217e-05
## Adj. R-Squared: -0.35538
## F-statistic: 9.7702 on 1 and 187268 DF, p-value: 0.0017739

model= plm(log(avg_valid_play_duration+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_valid_play_duration + 1) ~ fans_num_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.74335  -0.14977   0.00000   0.18286  10.37978 
## 
## Coefficients:
##                 Estimate Std. Error t-value  Pr(>|t|)    
## fans_num_pair -0.0146244  0.0030651 -4.7712 1.832e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    71510
## Residual Sum of Squares: 71502
## R-Squared:      0.00012155
## Adj. R-Squared: -0.35528
## F-statistic: 22.7647 on 1 and 187268 DF, p-value: 1.8324e-06

(2.1) 自变量：fans_range_pair

model= plm(avg_valid_play_duration ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_valid_play_duration ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2280454.4   -11814.2        0.0     7595.4  1661106.1 
## 
## Coefficients:
##                          Estimate Std. Error t-value Pr(>|t|)   
## factor(fans_range_pair)2  -738.63     448.02 -1.6486 0.099222 . 
## factor(fans_range_pair)3  1477.23     498.25  2.9648 0.003029 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1.0713e+15
## Residual Sum of Squares: 1.0713e+15
## R-Squared:      7.4125e-05
## Adj. R-Squared: -0.3588
## F-statistic: 6.86249 on 2 and 185147 DF, p-value: 0.0010466

model= plm(log(avg_valid_play_duration+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_valid_play_duration + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.73475  -0.15020   0.00000   0.18312  10.37934 
## 
## Coefficients:
##                            Estimate Std. Error t-value  Pr(>|t|)    
## factor(fans_range_pair)2 -0.0091635  0.0036530 -2.5085 0.0121255 *  
## factor(fans_range_pair)3  0.0150497  0.0040625  3.7045 0.0002118 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    71227
## Residual Sum of Squares: 71218
## R-Squared:      0.00013051
## Adj. R-Squared: -0.35873
## F-statistic: 12.0837 on 2 and 185147 DF, p-value: 5.6552e-06

(2.2) 自变量：fans_group_pair

model= plm(avg_valid_play_duration ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_valid_play_duration ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2280881.1   -11794.9        0.0     7600.6  1660586.3 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair  -469.51     396.85 -1.1831   0.2368
## 
## Total Sum of Squares:    1.0737e+15
## Residual Sum of Squares: 1.0737e+15
## R-Squared:      7.4744e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.39972 on 1 and 187268 DF, p-value: 0.23677

model= plm(log(avg_valid_play_duration+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_valid_play_duration + 1) ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.74678  -0.15003   0.00000   0.18319  10.37847 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)   
## fans_group_pair -0.0100259  0.0032386 -3.0958 0.001963 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    71510
## Residual Sum of Squares: 71507
## R-Squared:      5.1174e-05
## Adj. R-Squared: -0.35538
## F-statistic: 9.58381 on 1 and 187268 DF, p-value: 0.0019633

自变量：author_type_pair

model= plm(avg_valid_play_duration ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_valid_play_duration ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2281251.3   -11798.2        0.0     7602.4  1660919.2 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair  -1335.3     1733.7 -0.7702   0.4412
## 
## Total Sum of Squares:    1.0737e+15
## Residual Sum of Squares: 1.0737e+15
## R-Squared:      3.1676e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.593184 on 1 and 187268 DF, p-value: 0.44119

model= plm(log(avg_valid_play_duration+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_valid_play_duration + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.73934  -0.14981   0.00000   0.18315  10.37077 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.011835   0.014149  0.8365   0.4029
## 
## Total Sum of Squares:    71510
## Residual Sum of Squares: 71510
## R-Squared:      3.7365e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.699722 on 1 and 187268 DF, p-value: 0.40288

(3.1) 自变量：author_income_range_pair

model= plm(avg_valid_play_duration ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_valid_play_duration ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2280858.3   -11782.6        0.0     7609.7  1660576.3 
## 
## Coefficients:
##                                   Estimate Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2   483.01     470.15  1.0274   0.3042
## factor(author_income_range_pair)3   518.36     474.96  1.0914   0.2751
## 
## Total Sum of Squares:    1.0737e+15
## Residual Sum of Squares: 1.0737e+15
## R-Squared:      9.5255e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.891912 on 2 and 187267 DF, p-value: 0.40987

model= plm(log(avg_valid_play_duration+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_valid_play_duration + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.74355  -0.14994   0.00000   0.18315  10.36940 
## 
## Coefficients:
##                                    Estimate Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 0.0045041  0.0038368  1.1739   0.2404
## factor(author_income_range_pair)3 0.0061122  0.0038760  1.5769   0.1148
## 
## Total Sum of Squares:    71510
## Residual Sum of Squares: 71509
## R-Squared:      1.6618e-05
## Adj. R-Squared: -0.35543
## F-statistic: 1.55603 on 2 and 187267 DF, p-value: 0.21097

(3) 人均评论：avg_comment_cnt

(1)自变量：gender_pair

model= plm(avg_comment_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_comment_cnt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -98.68705  -1.11213   0.00000   0.57113 135.56649 
## 
## Coefficients:
##                       Estimate Std. Error t-value Pr(>|t|)   
## factor(gender_pair)2 -0.015191   0.134795 -0.1127 0.910273   
## factor(gender_pair)3 -0.752126   0.288850 -2.6039 0.009219 **
## factor(gender_pair)4 -0.715442   0.281329 -2.5431 0.010989 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    3848200
## Residual Sum of Squares: 3848100
## R-Squared:      4.3488e-05
## Adj. R-Squared: -0.3554
## F-statistic: 2.71473 on 3 and 187266 DF, p-value: 0.043127

model= plm(log(avg_comment_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_comment_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -3.31269 -0.17762  0.00000  0.17995  3.55263 
## 
## Coefficients:
##                       Estimate Std. Error t-value Pr(>|t|)  
## factor(gender_pair)2  0.014384   0.016895  0.8514  0.39455  
## factor(gender_pair)3 -0.081927   0.036204 -2.2629  0.02364 *
## factor(gender_pair)4 -0.081919   0.035261 -2.3232  0.02017 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    60455
## Residual Sum of Squares: 60452
## R-Squared:      5.3132e-05
## Adj. R-Squared: -0.35539
## F-statistic: 3.31679 on 3 and 187266 DF, p-value: 0.018995

(1.1) 自变量：gender_compair

model= plm(log(avg_comment_cnt+1) ~ gender_compair + factor(gender), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_comment_cnt + 1) ~ gender_compair + factor(gender), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -3.31269 -0.17764  0.00000  0.17990  3.55263 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)   
## gender_compair  0.0030415  0.0077530  0.3923 0.694837   
## factor(gender)M 0.0927914  0.0321923  2.8824 0.003947 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    60455
## Residual Sum of Squares: 60452
## R-Squared:      5.0083e-05
## Adj. R-Squared: -0.35539
## F-statistic: 4.68971 on 2 and 187267 DF, p-value: 0.0091904

(2)自变量：fans_num_pair

model= plm(avg_comment_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_comment_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -98.64103  -1.11190   0.00000   0.56966 135.57347 
## 
## Coefficients:
##                Estimate Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.055961   0.022486 -2.4887  0.01282 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    3848200
## Residual Sum of Squares: 3848100
## R-Squared:      3.3072e-05
## Adj. R-Squared: -0.3554
## F-statistic: 6.1936 on 1 and 187268 DF, p-value: 0.012822

model= plm(log(avg_comment_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_comment_cnt + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -3.31243 -0.17771  0.00000  0.18014  3.55056 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.0047320  0.0028184 -1.6789  0.09316 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    60455
## Residual Sum of Squares: 60455
## R-Squared:      1.5052e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.81887 on 1 and 187268 DF, p-value: 0.093164

(2.1) 自变量：fans_range_pair

model= plm(avg_comment_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_comment_cnt ~ factor(fans_range_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -98.65063  -1.11144   0.00000   0.56692 135.58438 
## 
## Coefficients:
##                           Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.038382   0.026779 -1.4333   0.1518
## factor(fans_range_pair)3  0.035939   0.029781  1.2068   0.2275
## 
## Total Sum of Squares:    3827400
## Residual Sum of Squares: 3827300
## R-Squared:      2.3095e-05
## Adj. R-Squared: -0.35887
## F-statistic: 2.138 on 2 and 185147 DF, p-value: 0.11789

model= plm(log(avg_comment_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_comment_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -3.31426 -0.17812  0.00000  0.17953  3.55085 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.0026477  0.0033541 -0.7894   0.4299
## factor(fans_range_pair)3  0.0032026  0.0037302  0.8586   0.3906
## 
## Total Sum of Squares:    60042
## Residual Sum of Squares: 60042
## R-Squared:      8.9642e-06
## Adj. R-Squared: -0.35889
## F-statistic: 0.829854 on 2 and 185147 DF, p-value: 0.43611

(2.2) 自变量：fans_group_pair

model= plm(avg_comment_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_comment_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -98.68769  -1.11135   0.00000   0.56948 135.57518 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair -0.024002   0.023758 -1.0103   0.3124
## 
## Total Sum of Squares:    3848200
## Residual Sum of Squares: 3848200
## R-Squared:      5.4503e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.02067 on 1 and 187268 DF, p-value: 0.31236

model= plm(log(avg_comment_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_comment_cnt + 1) ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -3.31131 -0.17768  0.00000  0.18013  3.55569 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair -0.0046736  0.0029778 -1.5695   0.1165
## 
## Total Sum of Squares:    60455
## Residual Sum of Squares: 60455
## R-Squared:      1.3154e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.46332 on 1 and 187268 DF, p-value: 0.11653

自变量：author_type_pair

model= plm(avg_comment_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_comment_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -98.68765  -1.11247   0.00000   0.56988 135.56676 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair  0.10047    0.10379   0.968    0.333
## 
## Total Sum of Squares:    3848200
## Residual Sum of Squares: 3848200
## R-Squared:      5.0038e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.937064 on 1 and 187268 DF, p-value: 0.33304

model= plm(log(avg_comment_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_comment_cnt + 1) ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -3.29039 -0.17759  0.00000  0.18013  3.55154 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)  
## author_type_pair 0.023747   0.013009  1.8254  0.06794 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    60455
## Residual Sum of Squares: 60454
## R-Squared:      1.7793e-05
## Adj. R-Squared: -0.35542
## F-statistic: 3.33212 on 1 and 187268 DF, p-value: 0.067941

(3.1) 自变量：author_income_range_pair

model= plm(avg_comment_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_comment_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -98.68528  -1.11218   0.00000   0.57046 135.55602 
## 
## Coefficients:
##                                     Estimate Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 -0.0046352  0.0281459 -0.1647   0.8692
## factor(author_income_range_pair)3  0.0177248  0.0284339  0.6234   0.5330
## 
## Total Sum of Squares:    3848200
## Residual Sum of Squares: 3848200
## R-Squared:      2.6872e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.251614 on 2 and 187267 DF, p-value: 0.77755

model= plm(log(avg_comment_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_comment_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -3.31267 -0.17767  0.00000  0.18011  3.55341 
## 
## Coefficients:
##                                     Estimate Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 0.00068027 0.00352780  0.1928   0.8471
## factor(author_income_range_pair)3 0.00204982 0.00356389  0.5752   0.5652
## 
## Total Sum of Squares:    60455
## Residual Sum of Squares: 60455
## R-Squared:      1.7772e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.166405 on 2 and 187267 DF, p-value: 0.8467

(4) 人均点赞：avg_like_cnt

(1)自变量：gender_pair

model= plm(avg_like_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_like_cnt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.5323e+04 -7.6336e+00 -1.4211e-14  2.6305e+00  2.7457e+04 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2   3.0395     8.8852  0.3421   0.7323
## factor(gender_pair)3   6.5617    19.0398  0.3446   0.7304
## factor(gender_pair)4   2.3734    18.5440  0.1280   0.8982
## 
## Total Sum of Squares:    1.6719e+10
## Residual Sum of Squares: 1.6719e+10
## R-Squared:      5.0704e-06
## Adj. R-Squared: -0.35546
## F-statistic: 0.316505 on 3 and 187266 DF, p-value: 0.81347

model= plm(log(avg_like_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_like_cnt + 1) ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -6.61437 -0.42789  0.00000  0.23254  8.66166 
## 
## Coefficients:
##                        Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 -0.0020554  0.0334324 -0.0615   0.9510
## factor(gender_pair)3  0.0772672  0.0716416  1.0785   0.2808
## factor(gender_pair)4  0.0617511  0.0697762  0.8850   0.3762
## 
## Total Sum of Squares:    236720
## Residual Sum of Squares: 236720
## R-Squared:      1.0057e-05
## Adj. R-Squared: -0.35545
## F-statistic: 0.627802 on 3 and 187266 DF, p-value: 0.59696

(1.1) 自变量：gender_compair

model= plm(log(avg_like_cnt+1) ~ gender_compair + factor(gender), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_like_cnt + 1) ~ gender_compair + factor(gender), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -6.61435 -0.42789  0.00000  0.23257  8.66163 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## gender_compair   0.011793   0.015342  0.7687   0.4421
## factor(gender)M -0.075025   0.063703 -1.1777   0.2389
## 
## Total Sum of Squares:    236720
## Residual Sum of Squares: 236720
## R-Squared:      8.8967e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.833039 on 2 and 187267 DF, p-value: 0.43473

(2)自变量：fans_num_pair

model= plm(avg_like_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_like_cnt ~ fans_num_pair, data = pdata, effect = "twoways", 
##     model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.5323e+04 -7.6009e+00 -3.8883e-02  2.5846e+00  2.7458e+04 
## 
## Coefficients:
##               Estimate Std. Error t-value Pr(>|t|)
## fans_num_pair  -0.8874     1.4822 -0.5987   0.5494
## 
## Total Sum of Squares:    1.6719e+10
## Residual Sum of Squares: 1.6719e+10
## R-Squared:      1.9141e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.358459 on 1 and 187268 DF, p-value: 0.54936

model= plm(log(avg_like_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_like_cnt + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -6.61481 -0.42799  0.00000  0.23220  8.66024 
## 
## Coefficients:
##                Estimate Std. Error t-value Pr(>|t|)
## fans_num_pair 0.0071102  0.0055770  1.2749   0.2023
## 
## Total Sum of Squares:    236720
## Residual Sum of Squares: 236720
## R-Squared:      8.6794e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.62539 on 1 and 187268 DF, p-value: 0.20234

(2.1) 自变量：fans_range_pair

model= plm(avg_like_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_like_cnt ~ factor(fans_range_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.5323e+04 -7.6173e+00 -2.7959e-02  2.5868e+00  2.7457e+04 
## 
## Coefficients:
##                          Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2  0.68943    1.76940  0.3896   0.6968
## factor(fans_range_pair)3 -0.49795    1.96777 -0.2531   0.8002
## 
## Total Sum of Squares:    1.6709e+10
## Residual Sum of Squares: 1.6709e+10
## R-Squared:      1.4044e-06
## Adj. R-Squared: -0.3589
## F-statistic: 0.130009 on 2 and 185147 DF, p-value: 0.87809

model= plm(log(avg_like_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_like_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -6.61054 -0.42775  0.00000  0.22983  8.65953 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2  0.0039632  0.0066281  0.5979   0.5499
## factor(fans_range_pair)3 -0.0035710  0.0073712 -0.4845   0.6281
## 
## Total Sum of Squares:    234460
## Residual Sum of Squares: 234460
## R-Squared:      3.8918e-06
## Adj. R-Squared: -0.3589
## F-statistic: 0.360279 on 2 and 185147 DF, p-value: 0.69748

(2.2) 自变量：fans_group_pair

model= plm(avg_like_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_like_cnt ~ fans_group_pair, data = pdata, effect = "twoways", 
##     model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.5324e+04 -7.5997e+00 -7.6088e-03  2.6110e+00  2.7457e+04 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair   1.8195     1.5660  1.1619   0.2453
## 
## Total Sum of Squares:    1.6719e+10
## Residual Sum of Squares: 1.6719e+10
## R-Squared:      7.2089e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.35 on 1 and 187268 DF, p-value: 0.24528

model= plm(log(avg_like_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_like_cnt + 1) ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -6.60817 -0.42788  0.00000  0.23210  8.65819 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)  
## fans_group_pair 0.0122475  0.0058924  2.0785  0.03766 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    236720
## Residual Sum of Squares: 236710
## R-Squared:      2.307e-05
## Adj. R-Squared: -0.35542
## F-statistic: 4.3203 on 1 and 187268 DF, p-value: 0.037662

自变量：author_type_pair

model= plm(avg_like_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_like_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.5323e+04 -7.6287e+00 -3.0117e-02  2.5896e+00  2.7457e+04 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair   2.2905     6.8414  0.3348   0.7378
## 
## Total Sum of Squares:    1.6719e+10
## Residual Sum of Squares: 1.6719e+10
## R-Squared:      5.9856e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.112092 on 1 and 187268 DF, p-value: 0.73778

model= plm(log(avg_like_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_like_cnt + 1) ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -6.61436 -0.42804  0.00000  0.23243  8.66165 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.010516   0.025742  0.4085   0.6829
## 
## Total Sum of Squares:    236720
## Residual Sum of Squares: 236720
## R-Squared:      8.9112e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.166879 on 1 and 187268 DF, p-value: 0.6829

(3.1) 自变量：author_income_range_pair

model= plm(avg_like_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_like_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.5324e+04 -7.6354e+00 -3.0200e-03  2.6332e+00  2.7457e+04 
## 
## Coefficients:
##                                   Estimate Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2  0.97443    1.85522  0.5252   0.5994
## factor(author_income_range_pair)3  2.49344    1.87420  1.3304   0.1834
## 
## Total Sum of Squares:    1.6719e+10
## Residual Sum of Squares: 1.6719e+10
## R-Squared:      9.635e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.902166 on 2 and 187267 DF, p-value: 0.40569

model= plm(log(avg_like_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_like_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -6.61994 -0.42805  0.00000  0.23276  8.65836 
## 
## Coefficients:
##                                    Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 0.0167828  0.0069806  2.4042  0.01621 *
## factor(author_income_range_pair)3 0.0128885  0.0070520  1.8276  0.06761 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    236720
## Residual Sum of Squares: 236710
## R-Squared:      3.914e-05
## Adj. R-Squared: -0.3554
## F-statistic: 3.66491 on 2 and 187267 DF, p-value: 0.025608

(5) 关注主播数：follow_author_cnt

(1)自变量：gender_pair

model= plm(follow_author_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_author_cnt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1751.93928    -0.46906     0.00000     0.21883  2403.86673 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2  1.18547    0.88773  1.3354   0.1817
## factor(gender_pair)3  1.67562    1.90229  0.8808   0.3784
## factor(gender_pair)4  1.16287    1.85276  0.6276   0.5302
## 
## Total Sum of Squares:    166900000
## Residual Sum of Squares: 166900000
## R-Squared:      1.624e-05
## Adj. R-Squared: -0.35544
## F-statistic: 1.01377 on 3 and 187266 DF, p-value: 0.3853

model= plm(log(follow_author_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_author_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -4.482743 -0.151824  0.000000  0.018465  6.498125 
## 
## Coefficients:
##                        Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 -0.0039869  0.0168233 -0.2370   0.8127
## factor(gender_pair)3 -0.0076268  0.0360503 -0.2116   0.8325
## factor(gender_pair)4 -0.0099845  0.0351116 -0.2844   0.7761
## 
## Total Sum of Squares:    59940
## Residual Sum of Squares: 59939
## R-Squared:      8.9189e-07
## Adj. R-Squared: -0.35546
## F-statistic: 0.0556735 on 3 and 187266 DF, p-value: 0.98273

(1.1) 自变量：gender_compair

model= plm(log(follow_author_cnt+1) ~ gender_compair + factor(gender), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_author_cnt + 1) ~ gender_compair + factor(gender), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -4.482753 -0.151840  0.000000  0.018551  6.498130 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## gender_compair  0.0010132  0.0077200  0.1312   0.8956
## factor(gender)M 0.0051918  0.0320554  0.1620   0.8713
## 
## Total Sum of Squares:    59940
## Residual Sum of Squares: 59940
## R-Squared:      2.9433e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.0275593 on 2 and 187267 DF, p-value: 0.97282

(2)自变量：fans_num_pair

model= plm(follow_author_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_author_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1752.09710    -0.47060     0.00000     0.23311  2404.10030 
## 
## Coefficients:
##               Estimate Std. Error t-value Pr(>|t|)   
## fans_num_pair -0.39268    0.14808 -2.6517 0.008008 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    166900000
## Residual Sum of Squares: 166890000
## R-Squared:      3.7548e-05
## Adj. R-Squared: -0.3554
## F-statistic: 7.03176 on 1 and 187268 DF, p-value: 0.0080083

model= plm(log(follow_author_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_author_cnt + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -4.474677 -0.151609  0.000000  0.019509  6.503705 
## 
## Coefficients:
##                 Estimate Std. Error t-value  Pr(>|t|)    
## fans_num_pair -0.0162139  0.0028061  -5.778 7.571e-09 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    59940
## Residual Sum of Squares: 59929
## R-Squared:      0.00017824
## Adj. R-Squared: -0.35521
## F-statistic: 33.3854 on 1 and 187268 DF, p-value: 7.5707e-09

(2.1) 自变量：fans_range_pair

model= plm(follow_author_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_author_cnt ~ factor(fans_range_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1751.93636    -0.44266     0.00000     0.18924  2225.73823 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2  0.1666097  0.1738859  0.9582   0.3380
## factor(fans_range_pair)3 -0.0075758  0.1933806 -0.0392   0.9688
## 
## Total Sum of Squares:    161370000
## Residual Sum of Squares: 161370000
## R-Squared:      5.2105e-06
## Adj. R-Squared: -0.3589
## F-statistic: 0.482361 on 2 and 185147 DF, p-value: 0.61733

model= plm(log(follow_author_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_author_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -4.481536 -0.149893  0.000000  0.018175  6.431226 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)  
## factor(fans_range_pair)2 -0.0012291  0.0033125 -0.3711  0.71060  
## factor(fans_range_pair)3  0.0079266  0.0036838  2.1517  0.03142 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    58562
## Residual Sum of Squares: 58560
## R-Squared:      2.8232e-05
## Adj. R-Squared: -0.35887
## F-statistic: 2.61362 on 2 and 185147 DF, p-value: 0.073272

(2.2) 自变量：fans_group_pair

model= plm(follow_author_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_author_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1751.98069    -0.45652     0.00000     0.20914  2403.92587 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair -0.20422    0.15646 -1.3053   0.1918
## 
## Total Sum of Squares:    166900000
## Residual Sum of Squares: 166900000
## R-Squared:      9.0977e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.70372 on 1 and 187268 DF, p-value: 0.1918

model= plm(log(follow_author_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_author_cnt + 1) ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -4.482827 -0.151456  0.000000  0.019571  6.499291 
## 
## Coefficients:
##                   Estimate Std. Error t-value  Pr(>|t|)    
## fans_group_pair -0.0158241  0.0029649 -5.3372 9.448e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    59940
## Residual Sum of Squares: 59930
## R-Squared:      0.00015209
## Adj. R-Squared: -0.35524
## F-statistic: 28.4861 on 1 and 187268 DF, p-value: 9.4484e-08

自变量：author_type_pair

model= plm(follow_author_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_author_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1751.94025    -0.45627     0.00000     0.20741  2403.86529 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.081015   0.683535  0.1185   0.9057
## 
## Total Sum of Squares:    166900000
## Residual Sum of Squares: 166900000
## R-Squared:      7.5015e-08
## Adj. R-Squared: -0.35545
## F-statistic: 0.0140479 on 1 and 187268 DF, p-value: 0.90565

model= plm(log(follow_author_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_author_cnt + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -4.482759 -0.151811  0.000000  0.018549  6.498441 
## 
## Coefficients:
##                    Estimate Std. Error t-value Pr(>|t|)
## author_type_pair -0.0073215  0.0129536 -0.5652   0.5719
## 
## Total Sum of Squares:    59940
## Residual Sum of Squares: 59939
## R-Squared:      1.7059e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.319467 on 1 and 187268 DF, p-value: 0.57193

(3.1) 自变量：author_income_range_pair

model= plm(follow_author_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_author_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1752.00438    -0.46174     0.00000     0.21635  2403.87904 
## 
## Coefficients:
##                                   Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 0.021295   0.185358  0.1149   0.9085  
## factor(author_income_range_pair)3 0.327604   0.187254  1.7495   0.0802 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    166900000
## Residual Sum of Squares: 166900000
## R-Squared:      1.7008e-05
## Adj. R-Squared: -0.35543
## F-statistic: 1.59256 on 2 and 187267 DF, p-value: 0.20341

model= plm(log(follow_author_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_author_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -4.475668 -0.151318  0.000000  0.019479  6.492132 
## 
## Coefficients:
##                                    Estimate Std. Error t-value Pr(>|t|)    
## factor(author_income_range_pair)2 0.0031278  0.0035126  0.8905   0.3732    
## factor(author_income_range_pair)3 0.0141586  0.0035485  3.9900 6.61e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    59940
## Residual Sum of Squares: 59934
## R-Squared:      8.5131e-05
## Adj. R-Squared: -0.35534
## F-statistic: 7.97183 on 2 and 187267 DF, p-value: 0.00034516

(6) 取消关注主播数：cancel_follow_author_cnt

(1)自变量：gender_pair

model= plm(cancel_follow_author_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_author_cnt ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -969.933744   -0.208414    0.000000    0.070228  969.933744 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2  0.16390    0.26223  0.6250   0.5319
## factor(gender_pair)3  0.33670    0.56193  0.5992   0.5490
## factor(gender_pair)4  0.29726    0.54730  0.5432   0.5870
## 
## Total Sum of Squares:    14563000
## Residual Sum of Squares: 14563000
## R-Squared:      3.0126e-06
## Adj. R-Squared: -0.35546
## F-statistic: 0.188051 on 3 and 187266 DF, p-value: 0.90459

model= plm(log(cancel_follow_author_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_author_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -4.3563226 -0.0895436  0.0000000  0.0096987  5.4052667 
## 
## Coefficients:
##                        Estimate Std. Error t-value Pr(>|t|)  
## factor(gender_pair)2 0.00092024 0.01190943  0.0773  0.93841  
## factor(gender_pair)3 0.03659893 0.02552045  1.4341  0.15154  
## factor(gender_pair)4 0.04126089 0.02485595  1.6600  0.09692 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    30039
## Residual Sum of Squares: 30038
## R-Squared:      2.0605e-05
## Adj. R-Squared: -0.35543
## F-statistic: 1.28624 on 3 and 187266 DF, p-value: 0.27713

(1.1) 自变量：gender_compair

model= plm(log(cancel_follow_author_cnt+1) ~ gender_compair + factor(gender), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_author_cnt + 1) ~ gender_compair + 
##     factor(gender), data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -4.3562437 -0.0895879  0.0000000  0.0096837  5.4052643 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## gender_compair  -0.0034791  0.0054651 -0.6366   0.5244
## factor(gender)M -0.0370441  0.0226924 -1.6324   0.1026
## 
## Total Sum of Squares:    30039
## Residual Sum of Squares: 30038
## R-Squared:      1.9682e-05
## Adj. R-Squared: -0.35543
## F-statistic: 1.84294 on 2 and 187267 DF, p-value: 0.15835

(2)自变量：fans_num_pair

model= plm(cancel_follow_author_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_author_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -969.933854   -0.209346    0.000000    0.077407  969.933854 
## 
## Coefficients:
##                Estimate Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.098266   0.043743 -2.2464  0.02468 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    14563000
## Residual Sum of Squares: 14563000
## R-Squared:      2.6947e-05
## Adj. R-Squared: -0.35541
## F-statistic: 5.04635 on 1 and 187268 DF, p-value: 0.024679

model= plm(log(cancel_follow_author_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_author_cnt + 1) ~ fans_num_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -4.3547062 -0.0897750  0.0000000  0.0096769  5.3982498 
## 
## Coefficients:
##                 Estimate Std. Error t-value  Pr(>|t|)    
## fans_num_pair -0.0087195  0.0019866 -4.3892 1.138e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    30039
## Residual Sum of Squares: 30036
## R-Squared:      0.00010286
## Adj. R-Squared: -0.35531
## F-statistic: 19.265 on 1 and 187268 DF, p-value: 1.1384e-05

(2.1) 自变量：fans_range_pair

model= plm(cancel_follow_author_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_author_cnt ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -969.926253   -0.202367    0.000000    0.069032  969.926253 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.0008721  0.0512353 -0.0170   0.9864
## factor(fans_range_pair)3 -0.0088542  0.0569794 -0.1554   0.8765
## 
## Total Sum of Squares:    14010000
## Residual Sum of Squares: 14010000
## R-Squared:      1.3111e-07
## Adj. R-Squared: -0.3589
## F-statistic: 0.0121371 on 2 and 185147 DF, p-value: 0.98794

model= plm(log(cancel_follow_author_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_author_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -4.3570693 -0.0886145  0.0000000  0.0091009  5.4057711 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.0016206  0.0023362 -0.6937   0.4879
## factor(fans_range_pair)3  0.0016938  0.0025981  0.6519   0.5145
## 
## Total Sum of Squares:    29129
## Residual Sum of Squares: 29129
## R-Squared:      5.9731e-06
## Adj. R-Squared: -0.3589
## F-statistic: 0.552951 on 2 and 185147 DF, p-value: 0.57525

(2.2) 自变量：fans_group_pair

model= plm(cancel_follow_author_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_author_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -969.933849   -0.207810    0.000000    0.070317  969.933849 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair -0.025664   0.046218 -0.5553   0.5787
## 
## Total Sum of Squares:    14563000
## Residual Sum of Squares: 14563000
## R-Squared:      1.6465e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.30833 on 1 and 187268 DF, p-value: 0.57871

model= plm(log(cancel_follow_author_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_author_cnt + 1) ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -4.3545859 -0.0897782  0.0000000  0.0095008  5.4013777 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)   
## fans_group_pair -0.0064653  0.0020990 -3.0802 0.002069 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    30039
## Residual Sum of Squares: 30037
## R-Squared:      5.066e-05
## Adj. R-Squared: -0.35538
## F-statistic: 9.48755 on 1 and 187268 DF, p-value: 0.002069

自变量：author_type_pair

model= plm(cancel_follow_author_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_author_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -969.933711   -0.207794    0.000000    0.068011  969.933711 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.046583   0.201912  0.2307   0.8175
## 
## Total Sum of Squares:    14563000
## Residual Sum of Squares: 14563000
## R-Squared:      2.8423e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.0532266 on 1 and 187268 DF, p-value: 0.81754

model= plm(log(cancel_follow_author_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_author_cnt + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -4.355972 -0.089566  0.000000  0.009708  5.405252 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)  
## author_type_pair 0.019792   0.009170  2.1584   0.0309 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    30039
## Residual Sum of Squares: 30038
## R-Squared:      2.4876e-05
## Adj. R-Squared: -0.35541
## F-statistic: 4.65851 on 1 and 187268 DF, p-value: 0.030901

(3.1) 自变量：author_income_range_pair

model= plm(cancel_follow_author_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_author_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -969.914884   -0.211903    0.000000    0.078395  969.914884 
## 
## Coefficients:
##                                    Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 -0.037905   0.054753 -0.6923  0.48875  
## factor(author_income_range_pair)3  0.110569   0.055313  1.9990  0.04561 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    14563000
## Residual Sum of Squares: 14563000
## R-Squared:      2.9758e-05
## Adj. R-Squared: -0.35541
## F-statistic: 2.78644 on 2 and 187267 DF, p-value: 0.061643

model= plm(log(cancel_follow_author_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_author_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -4.3573311 -0.0897504  0.0000000  0.0095977  5.4029631 
## 
## Coefficients:
##                                    Estimate Std. Error t-value  Pr(>|t|)    
## factor(author_income_range_pair)2 0.0037220  0.0024866  1.4968 0.1344474    
## factor(author_income_range_pair)3 0.0091215  0.0025121  3.6311 0.0002823 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    30039
## Residual Sum of Squares: 30037
## R-Squared:      7.2144e-05
## Adj. R-Squared: -0.35536
## F-statistic: 6.75559 on 2 and 187267 DF, p-value: 0.0011646

(7) 关注观众数：follow_user_cnt

(1)自变量：gender_pair

model= plm(follow_user_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_user_cnt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -374.89564   -0.17657    0.00000    0.07558 1231.89188 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2  0.04259    0.20562  0.2071   0.8359
## factor(gender_pair)3  0.40060    0.44063  0.9092   0.3633
## factor(gender_pair)4  0.36909    0.42915  0.8600   0.3898
## 
## Total Sum of Squares:    8954400
## Residual Sum of Squares: 8954400
## R-Squared:      4.6842e-06
## Adj. R-Squared: -0.35546
## F-statistic: 0.292399 on 3 and 187266 DF, p-value: 0.83093

model= plm(log(follow_user_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_user_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -3.68462375 -0.04052407 -0.00052957  0.00415919  6.10915914 
## 
## Coefficients:
##                       Estimate Std. Error t-value  Pr(>|t|)    
## factor(gender_pair)2 -0.013230   0.011885 -1.1132 0.2656395    
## factor(gender_pair)3  0.095569   0.025468  3.7526 0.0001751 ***
## factor(gender_pair)4  0.096869   0.024805  3.9053 9.415e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    29918
## Residual Sum of Squares: 29914
## R-Squared:      0.00013723
## Adj. R-Squared: -0.35528
## F-statistic: 8.56717 on 3 and 187266 DF, p-value: 1.1022e-05

(1.1) 自变量：gender_compair

model= plm(log(follow_user_cnt+1) ~ gender_compair + factor(gender), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_user_cnt + 1) ~ gender_compair + factor(gender), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -3.6846268 -0.0405218 -0.0004735  0.0041214  6.1091690 
## 
## Coefficients:
##                   Estimate Std. Error t-value  Pr(>|t|)    
## gender_compair  -0.0038276  0.0054538 -0.7018    0.4828    
## factor(gender)M -0.1058807  0.0226456 -4.6756 2.934e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    29918
## Residual Sum of Squares: 29914
## R-Squared:      0.00013299
## Adj. R-Squared: -0.35527
## F-statistic: 12.4544 on 2 and 187267 DF, p-value: 3.9038e-06

(2)自变量：fans_num_pair

model= plm(follow_user_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_user_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -374.899940   -0.179787    0.000000    0.077428 1231.862777 
## 
## Coefficients:
##                Estimate Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.058453   0.034301 -1.7041  0.08836 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    8954400
## Residual Sum of Squares: 8954300
## R-Squared:      1.5507e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.904 on 1 and 187268 DF, p-value: 0.088362

model= plm(log(follow_user_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_user_cnt + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -3.68116714 -0.04000854 -0.00048459  0.00446414  6.11101337 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)   
## fans_num_pair -0.0058058  0.0019827 -2.9283 0.003409 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    29918
## Residual Sum of Squares: 29917
## R-Squared:      4.5787e-05
## Adj. R-Squared: -0.35539
## F-statistic: 8.57476 on 1 and 187268 DF, p-value: 0.003409

(2.1) 自变量：fans_range_pair

model= plm(follow_user_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_user_cnt ~ factor(fans_range_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -374.858890   -0.178699    0.000000    0.077136 1231.856862 
## 
## Coefficients:
##                           Estimate Std. Error t-value Pr(>|t|)  
## factor(fans_range_pair)2 -0.074075   0.040549 -1.8268  0.06773 .
## factor(fans_range_pair)3 -0.050510   0.045095 -1.1201  0.26268  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    8775500
## Residual Sum of Squares: 8775300
## R-Squared:      2.1506e-05
## Adj. R-Squared: -0.35887
## F-statistic: 1.99096 on 2 and 185147 DF, p-value: 0.13657

model= plm(log(follow_user_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_user_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -3.68224974 -0.03864561 -0.00025724  0.00418164  6.02150242 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.00093957  0.00233967 -0.4016   0.6880
## factor(fans_range_pair)3  0.00248242  0.00260198  0.9540   0.3401
## 
## Total Sum of Squares:    29215
## Residual Sum of Squares: 29215
## R-Squared:      6.7565e-06
## Adj. R-Squared: -0.35889
## F-statistic: 0.62548 on 2 and 185147 DF, p-value: 0.53501

(2.2) 自变量：fans_group_pair

model= plm(follow_user_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_user_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -374.886018   -0.177755    0.000000    0.074425 1231.884029 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair -0.023535   0.036241 -0.6494   0.5161
## 
## Total Sum of Squares:    8954400
## Residual Sum of Squares: 8954400
## R-Squared:      2.252e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.42172 on 1 and 187268 DF, p-value: 0.51608

model= plm(log(follow_user_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_user_cnt + 1) ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -3.68405675 -0.03997775 -0.00049179  0.00438618  6.10944156 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)   
## fans_group_pair -0.0057842  0.0020948 -2.7613 0.005759 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    29918
## Residual Sum of Squares: 29917
## R-Squared:      4.0713e-05
## Adj. R-Squared: -0.35539
## F-statistic: 7.62453 on 1 and 187268 DF, p-value: 0.0057585

自变量：author_type_pair

model= plm(follow_user_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_user_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -374.876461   -0.176518    0.000000    0.075062 1231.891887 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## author_type_pair -0.091184   0.158326 -0.5759   0.5647
## 
## Total Sum of Squares:    8954400
## Residual Sum of Squares: 8954400
## R-Squared:      1.7712e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.331688 on 1 and 187268 DF, p-value: 0.56467

model= plm(log(follow_user_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_user_cnt + 1) ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -3.68521352 -0.04007310 -0.00051066  0.00411340  6.10878303 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.0057944  0.0091517  0.6331   0.5266
## 
## Total Sum of Squares:    29918
## Residual Sum of Squares: 29918
## R-Squared:      2.1407e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.400877 on 1 and 187268 DF, p-value: 0.52664

(3.1) 自变量：author_income_range_pair

model= plm(follow_user_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = follow_user_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -374.872521   -0.178290    0.000000    0.076627 1231.877746 
## 
## Coefficients:
##                                   Estimate Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 0.019590   0.042934  0.4563   0.6482
## factor(author_income_range_pair)3 0.052164   0.043374  1.2027   0.2291
## 
## Total Sum of Squares:    8954400
## Residual Sum of Squares: 8954400
## R-Squared:      7.8413e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.734214 on 2 and 187267 DF, p-value: 0.47988

model= plm(log(follow_user_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(follow_user_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -3.68426149 -0.04005651 -0.00042604  0.00420109  6.10855157 
## 
## Coefficients:
##                                      Estimate  Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 -0.00028354  0.00248172 -0.1143   0.9090
## factor(author_income_range_pair)3  0.00110953  0.00250712  0.4426   0.6581
## 
## Total Sum of Squares:    29918
## Residual Sum of Squares: 29918
## R-Squared:      1.3473e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.126156 on 2 and 187267 DF, p-value: 0.88148

(8) 取消关注关注数：cancel_follow_user_cnt

(1)自变量：gender_pair

model= plm(cancel_follow_user_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_user_cnt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -48.0097511  -0.0194749   0.0000000   0.0056689  54.0028673 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 0.028368   0.020367  1.3928   0.1637
## factor(gender_pair)3 0.058014   0.043644  1.3292   0.1838
## factor(gender_pair)4 0.045931   0.042508  1.0805   0.2799
## 
## Total Sum of Squares:    87854
## Residual Sum of Squares: 87853
## R-Squared:      1.8891e-05
## Adj. R-Squared: -0.35544
## F-statistic: 1.17925 on 3 and 187266 DF, p-value: 0.3159

model= plm(log(cancel_follow_user_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_user_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2.7923718 -0.0081429  0.0000000  0.0024120  3.6791415 
## 
## Coefficients:
##                       Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 0.0044220  0.0063201  0.6997   0.4841
## factor(gender_pair)3 0.0180273  0.0135433  1.3311   0.1832
## factor(gender_pair)4 0.0160397  0.0131906  1.2160   0.2240
## 
## Total Sum of Squares:    8459.6
## Residual Sum of Squares: 8459.5
## R-Squared:      1.0133e-05
## Adj. R-Squared: -0.35545
## F-statistic: 0.632514 on 3 and 187266 DF, p-value: 0.59394

(1.1) 自变量：gender_compair

model= plm(log(cancel_follow_user_cnt+1) ~ gender_compair + factor(gender), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_user_cnt + 1) ~ gender_compair + 
##     factor(gender), data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2.7923721 -0.0081402  0.0000000  0.0024169  3.6791395 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## gender_compair   0.0025035  0.0029002  0.8632   0.3880
## factor(gender)M -0.0142008  0.0120425 -1.1792   0.2383
## 
## Total Sum of Squares:    8459.6
## Residual Sum of Squares: 8459.5
## R-Squared:      9.5095e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.890415 on 2 and 187267 DF, p-value: 0.41049

(2)自变量：fans_num_pair

model= plm(cancel_follow_user_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_user_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -48.0097719  -0.0185328   0.0000000   0.0063215  54.0000136 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.0070639  0.0033976 -2.0791  0.03761 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    87854
## Residual Sum of Squares: 87852
## R-Squared:      2.3083e-05
## Adj. R-Squared: -0.35542
## F-statistic: 4.32273 on 1 and 187268 DF, p-value: 0.037608

model= plm(log(cancel_follow_user_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_user_cnt + 1) ~ fans_num_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2.7927612 -0.0084594  0.0000000  0.0024406  3.6794554 
## 
## Coefficients:
##                  Estimate  Std. Error t-value Pr(>|t|)
## fans_num_pair -0.00094989  0.00105430  -0.901   0.3676
## 
## Total Sum of Squares:    8459.6
## Residual Sum of Squares: 8459.5
## R-Squared:      4.3347e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.811756 on 1 and 187268 DF, p-value: 0.3676

(2.1) 自变量：fans_range_pair

model= plm(cancel_follow_user_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_user_cnt ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -48.0082480  -0.0168278   0.0000000   0.0056914  54.0022006 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2  0.0014097  0.0039746  0.3547   0.7228
## factor(fans_range_pair)3 -0.0037034  0.0044202 -0.8379   0.4021
## 
## Total Sum of Squares:    84310
## Residual Sum of Squares: 84309
## R-Squared:      5.2223e-06
## Adj. R-Squared: -0.3589
## F-statistic: 0.483446 on 2 and 185147 DF, p-value: 0.61666

model= plm(log(cancel_follow_user_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_user_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2.7924793 -0.0077865  0.0000000  0.0023381  3.6313055 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2  0.00026621  0.00123841  0.2150   0.8298
## factor(fans_range_pair)3 -0.00010615  0.00137725 -0.0771   0.9386
## 
## Total Sum of Squares:    8185.2
## Residual Sum of Squares: 8185.2
## R-Squared:      3.2464e-07
## Adj. R-Squared: -0.3589
## F-statistic: 0.0300528 on 2 and 185147 DF, p-value: 0.97039

(2.2) 自变量：fans_group_pair

model= plm(cancel_follow_user_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_user_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -48.0098009  -0.0184528   0.0000000   0.0062474  54.0043169 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)  
## fans_group_pair -0.0072462  0.0035897 -2.0186  0.04353 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    87854
## Residual Sum of Squares: 87852
## R-Squared:      2.1759e-05
## Adj. R-Squared: -0.35542
## F-statistic: 4.07484 on 1 and 187268 DF, p-value: 0.043528

model= plm(log(cancel_follow_user_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_user_cnt + 1) ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2.7928973 -0.0083700  0.0000000  0.0024493  3.6793188 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)  
## fans_group_pair -0.0026057  0.0011139 -2.3392  0.01932 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    8459.6
## Residual Sum of Squares: 8459.3
## R-Squared:      2.9219e-05
## Adj. R-Squared: -0.35541
## F-statistic: 5.47201 on 1 and 187268 DF, p-value: 0.019324

自变量：author_type_pair

model= plm(cancel_follow_user_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_user_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -48.0097621  -0.0192890   0.0000000   0.0056574  54.0028617 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.019054   0.015682   1.215   0.2244
## 
## Total Sum of Squares:    87854
## Residual Sum of Squares: 87854
## R-Squared:      7.8827e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.47619 on 1 and 187268 DF, p-value: 0.22437

model= plm(log(cancel_follow_user_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_user_cnt + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2.7923791 -0.0081433  0.0000000  0.0023665  3.6789093 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.0053582  0.0048664  1.1011   0.2709
## 
## Total Sum of Squares:    8459.6
## Residual Sum of Squares: 8459.5
## R-Squared:      6.4739e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.21237 on 1 and 187268 DF, p-value: 0.27087

(3.1) 自变量：author_income_range_pair

model= plm(cancel_follow_user_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = cancel_follow_user_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -48.0098474  -0.0182503   0.0000000   0.0060433  54.0027537 
## 
## Coefficients:
##                                     Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 0.00016917 0.00425265  0.0398  0.96827  
## factor(author_income_range_pair)3 0.01076348 0.00429617  2.5054  0.01223 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    87854
## Residual Sum of Squares: 87851
## R-Squared:      3.5664e-05
## Adj. R-Squared: -0.35541
## F-statistic: 3.33947 on 2 and 187267 DF, p-value: 0.035458

model= plm(log(cancel_follow_user_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(cancel_follow_user_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2.7930271 -0.0083747  0.0000000  0.0025389  3.6777320 
## 
## Coefficients:
##                                     Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 0.00070531 0.00131963  0.5345   0.5930  
## factor(author_income_range_pair)3 0.00329314 0.00133313  2.4702   0.0135 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    8459.6
## Residual Sum of Squares: 8459.3
## R-Squared:      3.2651e-05
## Adj. R-Squared: -0.35541
## F-statistic: 3.0573 on 2 and 187267 DF, p-value: 0.047017

(9) 加入粉丝团次数：join_fans_group_cnt

(1)自变量：gender_pair

model= plm(join_fans_group_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = join_fans_group_cnt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -203.450882   -0.069409    0.000000    0.028923  473.722993 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)   
## factor(gender_pair)2 0.303537   0.109221  2.7791 0.005451 **
## factor(gender_pair)3 0.202980   0.234047  0.8673 0.385801   
## factor(gender_pair)4 0.098371   0.227953  0.4315 0.666075   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    2526600
## Residual Sum of Squares: 2526400
## R-Squared:      6.4033e-05
## Adj. R-Squared: -0.35538
## F-statistic: 3.99731 on 3 and 187266 DF, p-value: 0.007412

model= plm(log(join_fans_group_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(join_fans_group_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -3.2076311 -0.0120399  0.0000000  0.0036587  5.6718139 
## 
## Coefficients:
##                       Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 0.0083284  0.0074462  1.1185   0.2634
## factor(gender_pair)3 0.0131439  0.0159563  0.8237   0.4101
## factor(gender_pair)4 0.0051073  0.0155409  0.3286   0.7424
## 
## Total Sum of Squares:    11743
## Residual Sum of Squares: 11743
## R-Squared:      3.0152e-05
## Adj. R-Squared: -0.35542
## F-statistic: 1.8822 on 3 and 187266 DF, p-value: 0.13013

(1.1) 自变量：gender_compair

model= plm(log(join_fans_group_cnt+1) ~ gender_compair + factor(gender), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(join_fans_group_cnt + 1) ~ gender_compair + 
##     factor(gender), data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -3.2076313 -0.0120394  0.0000000  0.0036568  5.6718141 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)  
## gender_compair   0.0080984  0.0034170  2.3701  0.01779 *
## factor(gender)M -0.0048869  0.0141882 -0.3444  0.73052  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    11743
## Residual Sum of Squares: 11743
## R-Squared:      3.0145e-05
## Adj. R-Squared: -0.35541
## F-statistic: 2.82271 on 2 and 187267 DF, p-value: 0.059447

(2)自变量：fans_num_pair

model= plm(join_fans_group_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = join_fans_group_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -203.450643   -0.066447    0.000000    0.028887  473.730823 
## 
## Coefficients:
##                Estimate Std. Error t-value Pr(>|t|)
## fans_num_pair -0.015197   0.018220 -0.8341   0.4042
## 
## Total Sum of Squares:    2526600
## Residual Sum of Squares: 2526600
## R-Squared:      3.7147e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.695653 on 1 and 187268 DF, p-value: 0.40425

model= plm(log(join_fans_group_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(join_fans_group_cnt + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -3.2059358 -0.0116295  0.0000000  0.0034881  5.6730666 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.0025250  0.0012421 -2.0328  0.04208 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    11743
## Residual Sum of Squares: 11743
## R-Squared:      2.2065e-05
## Adj. R-Squared: -0.35542
## F-statistic: 4.13215 on 1 and 187268 DF, p-value: 0.042077

(2.1) 自变量：fans_range_pair

model= plm(join_fans_group_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = join_fans_group_cnt ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -203.451410   -0.065405    0.000000    0.030214  473.722622 
## 
## Coefficients:
##                           Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.032651   0.021705 -1.5043   0.1325
## factor(fans_range_pair)3  0.012697   0.024139  0.5260   0.5989
## 
## Total Sum of Squares:    2514400
## Residual Sum of Squares: 2514400
## R-Squared:      1.5778e-05
## Adj. R-Squared: -0.35888
## F-statistic: 1.46062 on 2 and 185147 DF, p-value: 0.2321

model= plm(log(join_fans_group_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(join_fans_group_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -3.2077597 -0.0114111  0.0000000  0.0034052  5.6725227 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.00098064  0.00146642 -0.6687   0.5037
## factor(fans_range_pair)3  0.00143751  0.00163082  0.8815   0.3781
## 
## Total Sum of Squares:    11477
## Residual Sum of Squares: 11477
## R-Squared:      8.0259e-06
## Adj. R-Squared: -0.35889
## F-statistic: 0.742987 on 2 and 185147 DF, p-value: 0.47569

(2.2) 自变量：fans_group_pair

model= plm(join_fans_group_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = join_fans_group_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -203.450846   -0.065850    0.000000    0.030016  473.707031 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)  
## fans_group_pair 0.033392   0.019250  1.7346  0.08282 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    2526600
## Residual Sum of Squares: 2526500
## R-Squared:      1.6066e-05
## Adj. R-Squared: -0.35543
## F-statistic: 3.00877 on 1 and 187268 DF, p-value: 0.082817

model= plm(log(join_fans_group_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(join_fans_group_cnt + 1) ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -3.2076036 -0.0117442  0.0000000  0.0035063  5.6729837 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)  
## fans_group_pair -0.0023455  0.0013124 -1.7872  0.07391 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    11743
## Residual Sum of Squares: 11743
## R-Squared:      1.7055e-05
## Adj. R-Squared: -0.35542
## F-statistic: 3.19392 on 1 and 187268 DF, p-value: 0.073914

自变量：author_type_pair

model= plm(join_fans_group_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = join_fans_group_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -203.450658   -0.069861    0.000000    0.028788  473.723410 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)   
## author_type_pair 0.242663   0.084099  2.8855 0.003909 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    2526600
## Residual Sum of Squares: 2526500
## R-Squared:      4.4458e-05
## Adj. R-Squared: -0.35539
## F-statistic: 8.32589 on 1 and 187268 DF, p-value: 0.0039088

model= plm(log(join_fans_group_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(join_fans_group_cnt + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -3.2076280 -0.0121038  0.0000000  0.0035216  5.6718342 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)   
## author_type_pair 0.0168299  0.0057334  2.9354 0.003331 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    11743
## Residual Sum of Squares: 11742
## R-Squared:      4.6011e-05
## Adj. R-Squared: -0.35539
## F-statistic: 8.61672 on 1 and 187268 DF, p-value: 0.0033313

(3.1) 自变量：author_income_range_pair

model= plm(join_fans_group_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = join_fans_group_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -203.450654   -0.067548    0.000000    0.029867  473.731779 
## 
## Coefficients:
##                                     Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 -0.0013092  0.0228059 -0.0574  0.95422  
## factor(author_income_range_pair)3  0.0459871  0.0230392  1.9960  0.04593 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    2526600
## Residual Sum of Squares: 2526500
## R-Squared:      2.3181e-05
## Adj. R-Squared: -0.35542
## F-statistic: 2.17056 on 2 and 187267 DF, p-value: 0.11412

model= plm(log(join_fans_group_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(join_fans_group_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -3.2061816 -0.0116612  0.0000000  0.0035302  5.6716112 
## 
## Coefficients:
##                                    Estimate Std. Error t-value Pr(>|t|)   
## factor(author_income_range_pair)2 0.0013995  0.0015548  0.9001 0.368062   
## factor(author_income_range_pair)3 0.0043353  0.0015707  2.7601 0.005778 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    11743
## Residual Sum of Squares: 11742
## R-Squared:      4.087e-05
## Adj. R-Squared: -0.3554
## F-statistic: 3.82692 on 2 and 187267 DF, p-value: 0.021778

(10) 第一次看这个主播的用户：live_new_user_num

(1)自变量：gender_pair

model= plm(live_new_user_num ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = live_new_user_num ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -14.5023526  -0.0036564   0.0000000   0.0031721  80.9483814 
## 
## Coefficients:
##                        Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2  0.0049394  0.0104609  0.4722   0.6368
## factor(gender_pair)3 -0.0134181  0.0224164 -0.5986   0.5495
## factor(gender_pair)4 -0.0200857  0.0218328 -0.9200   0.3576
## 
## Total Sum of Squares:    23176
## Residual Sum of Squares: 23176
## R-Squared:      1.7701e-05
## Adj. R-Squared: -0.35544
## F-statistic: 1.10493 on 3 and 187266 DF, p-value: 0.34559

model= plm(log(live_new_user_num+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(live_new_user_num + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.63062757 -0.00157930  0.00000000  0.00077411  3.74646514 
## 
## Coefficients:
##                        Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 -0.0024453  0.0033783 -0.7238   0.4692
## factor(gender_pair)3 -0.0070345  0.0072393 -0.9717   0.3312
## factor(gender_pair)4 -0.0086463  0.0070508 -1.2263   0.2201
## 
## Total Sum of Squares:    2417.1
## Residual Sum of Squares: 2417.1
## R-Squared:      1.2596e-05
## Adj. R-Squared: -0.35545
## F-statistic: 0.786284 on 3 and 187266 DF, p-value: 0.50134

(1.1) 自变量：gender_compair

model= plm(log(live_new_user_num+1) ~ gender_compair + factor(gender), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(live_new_user_num + 1) ~ gender_compair + factor(gender), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.63063134 -0.00158307  0.00000000  0.00075105  3.74644535 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## gender_compair  0.0007521  0.0015503  0.4851   0.6276
## factor(gender)M 0.0055816  0.0064371  0.8671   0.3859
## 
## Total Sum of Squares:    2417.1
## Residual Sum of Squares: 2417.1
## R-Squared:      6.5368e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.612069 on 2 and 187267 DF, p-value: 0.54223

(2)自变量：fans_num_pair

model= plm(live_new_user_num ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = live_new_user_num ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -14.5048672  -0.0038945   0.0000000   0.0028707  80.9475578 
## 
## Coefficients:
##                Estimate Std. Error t-value Pr(>|t|)
## fans_num_pair -0.002699   0.001745 -1.5467   0.1219
## 
## Total Sum of Squares:    23176
## Residual Sum of Squares: 23176
## R-Squared:      1.2774e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.39213 on 1 and 187268 DF, p-value: 0.12195

model= plm(log(live_new_user_num+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(live_new_user_num + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.63063720 -0.00158893  0.00000000  0.00081956  3.74617140 
## 
## Coefficients:
##                  Estimate  Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.00102010  0.00056355 -1.8101  0.07028 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    2417.1
## Residual Sum of Squares: 2417.1
## R-Squared:      1.7497e-05
## Adj. R-Squared: -0.35542
## F-statistic: 3.2766 on 1 and 187268 DF, p-value: 0.070276

(2.1) 自变量：fans_range_pair

model= plm(live_new_user_num ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = live_new_user_num ~ factor(fans_range_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -12.5029996  -0.0037140   0.0000000   0.0029112  80.9480126 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.00217082  0.00207014 -1.0486   0.2943
## factor(fans_range_pair)3 -0.00017673  0.00230223 -0.0768   0.9388
## 
## Total Sum of Squares:    22872
## Residual Sum of Squares: 22872
## R-Squared:      6.0103e-06
## Adj. R-Squared: -0.3589
## F-statistic: 0.5564 on 2 and 185147 DF, p-value: 0.57327

model= plm(log(live_new_user_num+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(live_new_user_num + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.63056203 -0.00151376  0.00000000  0.00081505  3.74652862 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.00042406  0.00066715 -0.6356   0.5250
## factor(fans_range_pair)3 -0.00019995  0.00074195 -0.2695   0.7876
## 
## Total Sum of Squares:    2375.5
## Residual Sum of Squares: 2375.4
## R-Squared:      2.3155e-06
## Adj. R-Squared: -0.3589
## F-statistic: 0.214352 on 2 and 185147 DF, p-value: 0.80706

(2.2) 自变量：fans_group_pair

model= plm(live_new_user_num ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = live_new_user_num ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -14.5048752  -0.0039239   0.0000000   0.0029082  80.9480273 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair -0.0029458  0.0018437 -1.5977   0.1101
## 
## Total Sum of Squares:    23176
## Residual Sum of Squares: 23176
## R-Squared:      1.3631e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.55278 on 1 and 187268 DF, p-value: 0.1101

model= plm(log(live_new_user_num+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(live_new_user_num + 1) ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.63064069 -0.00159242  0.00000000  0.00078815  3.74636159 
## 
## Coefficients:
##                    Estimate  Std. Error t-value Pr(>|t|)
## fans_group_pair -0.00091872  0.00059542  -1.543   0.1228
## 
## Total Sum of Squares:    2417.1
## Residual Sum of Squares: 2417.1
## R-Squared:      1.2713e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.38078 on 1 and 187268 DF, p-value: 0.12284

自变量：author_type_pair

model= plm(live_new_user_num ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = live_new_user_num ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -14.5048669  -0.0036404   0.0000000   0.0031982  80.9482171 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.0026295  0.0080547  0.3265   0.7441
## 
## Total Sum of Squares:    23176
## Residual Sum of Squares: 23176
## R-Squared:      5.6909e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.106572 on 1 and 187268 DF, p-value: 0.74408

model= plm(log(live_new_user_num+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(live_new_user_num + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.63063576 -0.00158749  0.00000000  0.00074201  3.74641942 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.0020664  0.0026012  0.7944    0.427
## 
## Total Sum of Squares:    2417.1
## Residual Sum of Squares: 2417.1
## R-Squared:      3.3698e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.631052 on 1 and 187268 DF, p-value: 0.42697

(3.1) 自变量：author_income_range_pair

model= plm(live_new_user_num ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = live_new_user_num ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -14.5061543  -0.0039262   0.0000000   0.0029947  80.9440774 
## 
## Coefficients:
##                                    Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 0.0008847  0.0021842  0.4050   0.6854  
## factor(author_income_range_pair)3 0.0051978  0.0022066  2.3556   0.0185 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    23176
## Residual Sum of Squares: 23175
## R-Squared:      2.9877e-05
## Adj. R-Squared: -0.35541
## F-statistic: 2.79757 on 2 and 187267 DF, p-value: 0.06096

model= plm(log(live_new_user_num+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(live_new_user_num + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.63084657 -0.00158639  0.00000000  0.00079576  3.74559910 
## 
## Coefficients:
##                                     Estimate Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 0.00042382 0.00070539  0.6008   0.5480
## factor(author_income_range_pair)3 0.00111355 0.00071261  1.5626   0.1181
## 
## Total Sum of Squares:    2417.1
## Residual Sum of Squares: 2417.1
## R-Squared:      1.3255e-05
## Adj. R-Squared: -0.35544
## F-statistic: 1.24114 on 2 and 187267 DF, p-value: 0.28906

(11) 举报直播次数：report_live_cnt

(1)自变量：gender_pair

model= plm(report_live_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = report_live_cnt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -213.981583   -0.011347    0.000000    0.010435  421.979445 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 0.109640   0.066938  1.6379   0.1014
## factor(gender_pair)3 0.072976   0.143439  0.5088   0.6109
## factor(gender_pair)4 0.066556   0.139704  0.4764   0.6338
## 
## Total Sum of Squares:    948940
## Residual Sum of Squares: 948920
## R-Squared:      1.4982e-05
## Adj. R-Squared: -0.35544
## F-statistic: 0.935216 on 3 and 187266 DF, p-value: 0.42257

model= plm(log(report_live_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(report_live_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.80000709 -0.00099894  0.00000000  0.00082924  5.04433968 
## 
## Coefficients:
##                        Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 -0.0051242  0.0056294 -0.9103   0.3627
## factor(gender_pair)3 -0.0175577  0.0120631 -1.4555   0.1455
## factor(gender_pair)4 -0.0186873  0.0117490 -1.5905   0.1117
## 
## Total Sum of Squares:    6711.5
## Residual Sum of Squares: 6711.4
## R-Squared:      1.4466e-05
## Adj. R-Squared: -0.35544
## F-statistic: 0.90302 on 3 and 187266 DF, p-value: 0.43869

(1.1) 自变量：gender_compair

model= plm(log(report_live_cnt+1) ~ gender_compair + factor(gender), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(report_live_cnt + 1) ~ gender_compair + factor(gender), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.80000503 -0.00096475  0.00000000  0.00076246  5.04432864 
## 
## Coefficients:
##                    Estimate  Std. Error t-value Pr(>|t|)
## gender_compair  -0.00019556  0.00258327 -0.0757   0.9397
## factor(gender)M  0.01396313  0.01072639  1.3018   0.1930
## 
## Total Sum of Squares:    6711.5
## Residual Sum of Squares: 6711.5
## R-Squared:      9.281e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.86902 on 2 and 187267 DF, p-value: 0.41936

(2)自变量：fans_num_pair

model= plm(report_live_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = report_live_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -213.981534   -0.011344    0.000000    0.010211  421.979424 
## 
## Coefficients:
##                Estimate Std. Error t-value Pr(>|t|)
## fans_num_pair -0.010133   0.011166 -0.9075   0.3641
## 
## Total Sum of Squares:    948940
## Residual Sum of Squares: 948930
## R-Squared:      4.3978e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.823563 on 1 and 187268 DF, p-value: 0.36414

model= plm(log(report_live_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(report_live_cnt + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.80000097 -0.00122056  0.00000000  0.00082161  5.04457229 
## 
## Coefficients:
##                  Estimate  Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.00209629  0.00093906 -2.2323  0.02559 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    6711.5
## Residual Sum of Squares: 6711.4
## R-Squared:      2.661e-05
## Adj. R-Squared: -0.35541
## F-statistic: 4.98326 on 1 and 187268 DF, p-value: 0.025595

(2.1) 自变量：fans_range_pair

model= plm(report_live_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = report_live_cnt ~ factor(fans_range_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -213.983064   -0.012798    0.000000    0.010424  421.977152 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2  0.0042300  0.0131527  0.3216   0.7478
## factor(fans_range_pair)3 -0.0031648  0.0146272 -0.2164   0.8287
## 
## Total Sum of Squares:    923260
## Residual Sum of Squares: 923260
## R-Squared:      9.7945e-07
## Adj. R-Squared: -0.3589
## F-statistic: 0.0906711 on 2 and 185147 DF, p-value: 0.91332

model= plm(log(report_live_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(report_live_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -3.19937758 -0.00119334  0.00000000  0.00083953  5.04480633 
## 
## Coefficients:
##                           Estimate Std. Error t-value Pr(>|t|)  
## factor(fans_range_pair)2 0.0022007  0.0011095  1.9835  0.04732 *
## factor(fans_range_pair)3 0.0015609  0.0012339  1.2650  0.20588  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    6570
## Residual Sum of Squares: 6569.8
## R-Squared:      2.5834e-05
## Adj. R-Squared: -0.35887
## F-statistic: 2.39162 on 2 and 185147 DF, p-value: 0.091484

(2.2) 自变量：fans_group_pair

model= plm(report_live_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = report_live_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -213.984800   -0.011302    0.000000    0.010063  421.981098 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair 0.0049446  0.0117977  0.4191   0.6751
## 
## Total Sum of Squares:    948940
## Residual Sum of Squares: 948940
## R-Squared:      9.3799e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.175656 on 1 and 187268 DF, p-value: 0.67513

model= plm(log(report_live_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(report_live_cnt + 1) ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.79893041 -0.00113272  0.00000000  0.00080453  5.04471379 
## 
## Coefficients:
##                    Estimate  Std. Error t-value Pr(>|t|)
## fans_group_pair -0.00161905  0.00099217 -1.6318   0.1027
## 
## Total Sum of Squares:    6711.5
## Residual Sum of Squares: 6711.4
## R-Squared:      1.4219e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.66285 on 1 and 187268 DF, p-value: 0.10272

自变量：author_type_pair

model= plm(report_live_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = report_live_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -213.981522   -0.011329    0.000000    0.010333  421.979432 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.015736   0.051541  0.3053   0.7601
## 
## Total Sum of Squares:    948940
## Residual Sum of Squares: 948940
## R-Squared:      4.9779e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.0932205 on 1 and 187268 DF, p-value: 0.76012

model= plm(log(report_live_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(report_live_cnt + 1) ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.79999641 -0.00099391  0.00000000  0.00075761  5.04431301 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.0063544  0.0043345   1.466   0.1427
## 
## Total Sum of Squares:    6711.5
## Residual Sum of Squares: 6711.5
## R-Squared:      1.1476e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.14914 on 1 and 187268 DF, p-value: 0.14265

(3.1) 自变量：author_income_range_pair

model= plm(report_live_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = report_live_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -213.988026   -0.012120    0.000000    0.010459  421.982712 
## 
## Coefficients:
##                                   Estimate Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 0.010643   0.013977  0.7615   0.4464
## factor(author_income_range_pair)3 0.020395   0.014120  1.4444   0.1486
## 
## Total Sum of Squares:    948940
## Residual Sum of Squares: 948930
## R-Squared:      1.1993e-05
## Adj. R-Squared: -0.35544
## F-statistic: 1.12291 on 2 and 187267 DF, p-value: 0.32533

model= plm(log(report_live_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(report_live_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.80056960 -0.00108323  0.00000000  0.00079847  5.04436487 
## 
## Coefficients:
##                                     Estimate Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 0.00047703 0.00117543  0.4058   0.6849
## factor(author_income_range_pair)3 0.00133105 0.00118745  1.1209   0.2623
## 
## Total Sum of Squares:    6711.5
## Residual Sum of Squares: 6711.5
## R-Squared:      6.7841e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.635228 on 2 and 187267 DF, p-value: 0.52982

3.2 PK期间DV

(1) PK期间收入：pk_total_cost_amt

(1)自变量：gender_pair

model= plm(pk_total_cost_amt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_total_cost_amt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.0096e+05 -1.2460e+02 -1.4465e+01  3.6298e+00  1.9822e+05 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 -30.5805    37.7105 -0.8109   0.4174
## factor(gender_pair)3  -9.5673    80.8090 -0.1184   0.9058
## factor(gender_pair)4 -21.2045    78.7049 -0.2694   0.7876
## 
## Total Sum of Squares:    3.0117e+11
## Residual Sum of Squares: 3.0117e+11
## R-Squared:      5.4693e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.341406 on 3 and 187266 DF, p-value: 0.79539

model= plm(log(pk_total_cost_amt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_total_cost_amt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##    Min. 1st Qu.  Median 3rd Qu.    Max. 
## -7.5185 -1.2588  0.0000  1.1833  8.8005 
## 
## Coefficients:
##                       Estimate Std. Error t-value Pr(>|t|)   
## factor(gender_pair)2 -0.150951   0.066793 -2.2600 0.023824 * 
## factor(gender_pair)3 -0.418274   0.143130 -2.9223 0.003475 **
## factor(gender_pair)4 -0.334278   0.139403 -2.3979 0.016489 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    944900
## Residual Sum of Squares: 944840
## R-Squared:      7.2317e-05
## Adj. R-Squared: -0.35536
## F-statistic: 4.51449 on 3 and 187266 DF, p-value: 0.0035981

(2)自变量：fans_num_pair

model= plm(pk_total_cost_amt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_total_cost_amt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.0097e+05 -1.2468e+02 -1.4434e+01  4.7405e+00  1.9822e+05 
## 
## Coefficients:
##               Estimate Std. Error t-value Pr(>|t|)  
## fans_num_pair -15.6550     6.2906 -2.4886  0.01282 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    3.0117e+11
## Residual Sum of Squares: 3.0116e+11
## R-Squared:      3.3071e-05
## Adj. R-Squared: -0.3554
## F-statistic: 6.19335 on 1 and 187268 DF, p-value: 0.012824

model= plm(log(pk_total_cost_amt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_total_cost_amt + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##    Min. 1st Qu.  Median 3rd Qu.    Max. 
## -7.5509 -1.2579  0.0000  1.1831  8.8373 
## 
## Coefficients:
##                Estimate Std. Error t-value  Pr(>|t|)    
## fans_num_pair -0.078060   0.011141 -7.0065 2.452e-12 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    944900
## Residual Sum of Squares: 944660
## R-Squared:      0.00026207
## Adj. R-Squared: -0.35509
## F-statistic: 49.0905 on 1 and 187268 DF, p-value: 2.4524e-12

(2.1) 自变量：fans_range_pair

model= plm(pk_total_cost_amt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_total_cost_amt ~ factor(fans_range_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.0096e+05 -1.2250e+02 -1.3870e+01  4.0971e+00  1.9821e+05 
## 
## Coefficients:
##                          Estimate Std. Error t-value Pr(>|t|)  
## factor(fans_range_pair)2 -13.2098     7.3508 -1.7970  0.07233 .
## factor(fans_range_pair)3   4.0107     8.1750  0.4906  0.62371  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    2.8839e+11
## Residual Sum of Squares: 2.8838e+11
## R-Squared:      2.1156e-05
## Adj. R-Squared: -0.35888
## F-statistic: 1.95851 on 2 and 185147 DF, p-value: 0.14107

model= plm(log(pk_total_cost_amt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_total_cost_amt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##    Min. 1st Qu.  Median 3rd Qu.    Max. 
## -7.5589 -1.2545  0.0000  1.1761  8.8405 
## 
## Coefficients:
##                           Estimate Std. Error t-value  Pr(>|t|)    
## factor(fans_range_pair)2 -0.058020   0.013220 -4.3888 1.141e-05 ***
## factor(fans_range_pair)3  0.032447   0.014702  2.2070   0.02732 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    932910
## Residual Sum of Squares: 932760
## R-Squared:      0.00015428
## Adj. R-Squared: -0.35869
## F-statistic: 14.2846 on 2 and 185147 DF, p-value: 6.2625e-07

(2.2) 自变量：fans_group_pair

model= plm(pk_total_cost_amt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_total_cost_amt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.0098e+05 -1.2513e+02 -1.5200e+01  5.6447e+00  1.9823e+05 
## 
## Coefficients:
##                 Estimate Std. Error t-value  Pr(>|t|)    
## fans_group_pair -27.0457     6.6461 -4.0694 4.716e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    3.0117e+11
## Residual Sum of Squares: 3.0115e+11
## R-Squared:      8.8421e-05
## Adj. R-Squared: -0.35533
## F-statistic: 16.5599 on 1 and 187268 DF, p-value: 4.7158e-05

model= plm(log(pk_total_cost_amt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_total_cost_amt + 1) ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##    Min. 1st Qu.  Median 3rd Qu.    Max. 
## -7.4888 -1.2589  0.0000  1.1827  8.7953 
## 
## Coefficients:
##                  Estimate Std. Error t-value  Pr(>|t|)    
## fans_group_pair -0.072123   0.011771 -6.1269 8.979e-10 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    944900
## Residual Sum of Squares: 944720
## R-Squared:      0.00020041
## Adj. R-Squared: -0.35518
## F-statistic: 37.5388 on 1 and 187268 DF, p-value: 8.9789e-10

自变量：author_type_pair

model= plm(pk_total_cost_amt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_total_cost_amt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.0096e+05 -1.2465e+02 -1.4262e+01  3.4235e+00  1.9822e+05 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair   7.4578    29.0363  0.2568   0.7973
## 
## Total Sum of Squares:    3.0117e+11
## Residual Sum of Squares: 3.0117e+11
## R-Squared:      3.5227e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.0659681 on 1 and 187268 DF, p-value: 0.7973

model= plm(log(pk_total_cost_amt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_total_cost_amt + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##    Min. 1st Qu.  Median 3rd Qu.    Max. 
## -7.5197 -1.2585  0.0000  1.1827  8.8021 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.012712   0.051431  0.2472   0.8048
## 
## Total Sum of Squares:    944900
## Residual Sum of Squares: 944900
## R-Squared:      3.2623e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.0610929 on 1 and 187268 DF, p-value: 0.80478

(3.1) 自变量：author_income_range_pair

model= plm(pk_total_cost_amt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_total_cost_amt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.0097e+05 -1.2481e+02 -1.4351e+01  4.5881e+00  1.9823e+05 
## 
## Coefficients:
##                                   Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 -14.5862     7.8739 -1.8525  0.06396 .
## factor(author_income_range_pair)3 -13.9436     7.9545 -1.7529  0.07961 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    3.0117e+11
## Residual Sum of Squares: 3.0117e+11
## R-Squared:      2.7575e-05
## Adj. R-Squared: -0.35542
## F-statistic: 2.58201 on 2 and 187267 DF, p-value: 0.075625

model= plm(log(pk_total_cost_amt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_total_cost_amt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##    Min. 1st Qu.  Median 3rd Qu.    Max. 
## -7.5166 -1.2586  0.0000  1.1837  8.7846 
## 
## Coefficients:
##                                     Estimate Std. Error t-value  Pr(>|t|)    
## factor(author_income_range_pair)2 -0.0576974  0.0139463 -4.1371 3.519e-05 ***
## factor(author_income_range_pair)3 -0.0028909  0.0140890 -0.2052    0.8374    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    944900
## Residual Sum of Squares: 944810
## R-Squared:      9.5738e-05
## Adj. R-Squared: -0.35533
## F-statistic: 8.96518 on 2 and 187267 DF, p-value: 0.00012784

(2) PK人均观看时长：avg_pK_play_duration

(1)自变量：gender_pair

model= plm(avg_pk_play_duration ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_play_duration ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -245880.2   -6992.6       0.0    5664.4  312342.4 
## 
## Coefficients:
##                       Estimate Std. Error t-value  Pr(>|t|)    
## factor(gender_pair)2   -432.39     774.46 -0.5583    0.5766    
## factor(gender_pair)3 -12863.13    1659.58 -7.7508 9.176e-15 ***
## factor(gender_pair)4 -12612.11    1616.37 -7.8027 6.089e-15 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1.2708e+14
## Residual Sum of Squares: 1.2703e+14
## R-Squared:      0.00038731
## Adj. R-Squared: -0.35494
## F-statistic: 24.1857 on 3 and 187266 DF, p-value: 1.2176e-15

model= plm(log(avg_pk_play_duration+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_play_duration + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -11.30169  -0.13692   0.00000   0.28841  11.01917 
## 
## Coefficients:
##                       Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 -0.087759   0.058654 -1.4962   0.1346
## factor(gender_pair)3 -0.031183   0.125689 -0.2481   0.8041
## factor(gender_pair)4 -0.012842   0.122416 -0.1049   0.9165
## 
## Total Sum of Squares:    728610
## Residual Sum of Squares: 728600
## R-Squared:      1.6073e-05
## Adj. R-Squared: -0.35544
## F-statistic: 1.00331 on 3 and 187266 DF, p-value: 0.3901

(2)自变量：fans_num_pair

model= plm(avg_pk_play_duration ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_play_duration ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -245961.5   -6988.9       0.0    5668.7  312309.2 
## 
## Coefficients:
##               Estimate Std. Error t-value Pr(>|t|)   
## fans_num_pair  -347.25     129.21 -2.6874 0.007202 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1.2708e+14
## Residual Sum of Squares: 1.2707e+14
## R-Squared:      3.8564e-05
## Adj. R-Squared: -0.3554
## F-statistic: 7.222 on 1 and 187268 DF, p-value: 0.0072022

model= plm(log(avg_pk_play_duration+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_play_duration + 1) ~ fans_num_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -11.31593  -0.13664   0.00000   0.28822  11.03547 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.0245760  0.0097843 -2.5118  0.01201 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    728610
## Residual Sum of Squares: 728590
## R-Squared:      3.3689e-05
## Adj. R-Squared: -0.3554
## F-statistic: 6.30899 on 1 and 187268 DF, p-value: 0.012014

(2.1) 自变量：fans_range_pair

model= plm(avg_pk_play_duration ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_play_duration ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -245962.4   -6999.4       0.0    5649.0  312245.2 
## 
## Coefficients:
##                          Estimate Std. Error t-value  Pr(>|t|)    
## factor(fans_range_pair)2  -574.99     153.96 -3.7348 0.0001879 ***
## factor(fans_range_pair)3   212.56     171.22  1.2415 0.2144318    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1.2651e+14
## Residual Sum of Squares: 1.265e+14
## R-Squared:      9.5846e-05
## Adj. R-Squared: -0.35877
## F-statistic: 8.87368 on 2 and 185147 DF, p-value: 0.00014009

model= plm(log(avg_pk_play_duration+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_play_duration + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -11.30466  -0.13662   0.00000   0.28742  11.03597 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.0179761  0.0115864 -1.5515   0.1208
## factor(fans_range_pair)3  0.0049201  0.0128854  0.3818   0.7026
## 
## Total Sum of Squares:    716470
## Residual Sum of Squares: 716460
## R-Squared:      1.5451e-05
## Adj. R-Squared: -0.35888
## F-statistic: 1.43036 on 2 and 185147 DF, p-value: 0.23923

(2.2) 自变量：fans_group_pair

model= plm(avg_pk_play_duration ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_play_duration ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -245778.0   -6987.1       0.0    5660.5  312297.0 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)   
## fans_group_pair  -391.78     136.52 -2.8698 0.004108 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1.2708e+14
## Residual Sum of Squares: 1.2707e+14
## R-Squared:      4.3975e-05
## Adj. R-Squared: -0.35539
## F-statistic: 8.23554 on 1 and 187268 DF, p-value: 0.0041082

model= plm(log(avg_pk_play_duration+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_play_duration + 1) ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -11.33920  -0.13729   0.00000   0.28839  11.04584 
## 
## Coefficients:
##                  Estimate Std. Error t-value  Pr(>|t|)    
## fans_group_pair -0.040173   0.010337 -3.8862 0.0001019 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    728610
## Residual Sum of Squares: 728550
## R-Squared:      8.064e-05
## Adj. R-Squared: -0.35534
## F-statistic: 15.1024 on 1 and 187268 DF, p-value: 0.00010187

自变量：author_type_pair

model= plm(avg_pk_play_duration ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_play_duration ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -245856.5   -6996.8       0.0    5665.4  312395.8 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair   888.60     596.43  1.4899   0.1363
## 
## Total Sum of Squares:    1.2708e+14
## Residual Sum of Squares: 1.2707e+14
## R-Squared:      1.1853e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.21966 on 1 and 187268 DF, p-value: 0.13626

model= plm(log(avg_pk_play_duration+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_play_duration + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -11.30125  -0.13684   0.00000   0.28857  11.01926 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)  
## author_type_pair -0.088580   0.045162 -1.9614  0.04984 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    728610
## Residual Sum of Squares: 728600
## R-Squared:      2.0542e-05
## Adj. R-Squared: -0.35542
## F-statistic: 3.84695 on 1 and 187268 DF, p-value: 0.049838

(3.1) 自变量：author_income_range_pair

model= plm(avg_pk_play_duration ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_play_duration ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##    Min. 1st Qu.  Median 3rd Qu.    Max. 
## -245548   -6991       0    5658  312418 
## 
## Coefficients:
##                                   Estimate Std. Error t-value Pr(>|t|)   
## factor(author_income_range_pair)2   83.467    161.737  0.5161 0.605807   
## factor(author_income_range_pair)3  437.627    163.392  2.6784 0.007398 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1.2708e+14
## Residual Sum of Squares: 1.2707e+14
## R-Squared:      3.8494e-05
## Adj. R-Squared: -0.3554
## F-statistic: 3.60446 on 2 and 187267 DF, p-value: 0.027204

model= plm(log(avg_pk_play_duration+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_play_duration + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -11.29501  -0.13664   0.00000   0.28871  10.99246 
## 
## Coefficients:
##                                     Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2  0.0291229  0.0122469  2.3780  0.01741 *
## factor(author_income_range_pair)3 -0.0042915  0.0123722 -0.3469  0.72869  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    728610
## Residual Sum of Squares: 728590
## R-Squared:      3.5537e-05
## Adj. R-Squared: -0.35541
## F-statistic: 3.32759 on 2 and 187267 DF, p-value: 0.035881

(3) PK人均评论：avg_pk_comment_cnt

(1)自变量：gender_pair

model= plm(avg_pk_comment_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_comment_cnt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.02214  -1.03554   0.00000   0.64374  53.76202 
## 
## Coefficients:
##                       Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2  0.100296   0.064181  1.5627   0.1181
## factor(gender_pair)3 -0.036872   0.137531 -0.2681   0.7886
## factor(gender_pair)4  0.020739   0.133950  0.1548   0.8770
## 
## Total Sum of Squares:    872390
## Residual Sum of Squares: 872360
## R-Squared:      3.1243e-05
## Adj. R-Squared: -0.35542
## F-statistic: 1.95029 on 3 and 187266 DF, p-value: 0.1191

model= plm(log(avg_pk_comment_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_comment_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -2.04584 -0.25743  0.00000  0.29035  2.99193 
## 
## Coefficients:
##                       Estimate Std. Error t-value Pr(>|t|)  
## factor(gender_pair)2  0.035204   0.017625  1.9973  0.04579 *
## factor(gender_pair)3 -0.042736   0.037769 -1.1315  0.25785  
## factor(gender_pair)4 -0.034550   0.036786 -0.9392  0.34763  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    65795
## Residual Sum of Squares: 65792
## R-Squared:      4.8644e-05
## Adj. R-Squared: -0.3554
## F-statistic: 3.03661 on 3 and 187266 DF, p-value: 0.027868

(2)自变量：fans_num_pair

model= plm(avg_pk_comment_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_comment_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.02229  -1.03476   0.00000   0.64338  53.75397 
## 
## Coefficients:
##                Estimate Std. Error t-value Pr(>|t|)
## fans_num_pair -0.013162   0.010706 -1.2293    0.219
## 
## Total Sum of Squares:    872390
## Residual Sum of Squares: 872380
## R-Squared:      8.0698e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.51122 on 1 and 187268 DF, p-value: 0.21895

model= plm(log(avg_pk_comment_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_comment_cnt + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -2.04528 -0.25740  0.00000  0.29021  2.99063 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)
## fans_num_pair -0.0037599  0.0029403 -1.2788    0.201
## 
## Total Sum of Squares:    65795
## Residual Sum of Squares: 65795
## R-Squared:      8.7321e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.63525 on 1 and 187268 DF, p-value: 0.20098

(2.1) 自变量：fans_range_pair

model= plm(avg_pk_comment_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_comment_cnt ~ factor(fans_range_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -10.0222  -1.0351   0.0000   0.6424  53.7542 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.0205410  0.0127361 -1.6128   0.1068
## factor(fans_range_pair)3 -0.0013851  0.0141640 -0.0978   0.9221
## 
## Total Sum of Squares:    865720
## Residual Sum of Squares: 865700
## R-Squared:      1.4259e-05
## Adj. R-Squared: -0.35888
## F-statistic: 1.32002 on 2 and 185147 DF, p-value: 0.26713

model= plm(log(avg_pk_comment_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_comment_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -1.99371 -0.25779  0.00000  0.29040  2.99191 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.00447792  0.00349892 -1.2798   0.2006
## factor(fans_range_pair)3 -0.00070139  0.00389119 -0.1803   0.8570
## 
## Total Sum of Squares:    65338
## Residual Sum of Squares: 65338
## R-Squared:      8.861e-06
## Adj. R-Squared: -0.35889
## F-statistic: 0.820301 on 2 and 185147 DF, p-value: 0.4403

(2.2) 自变量：fans_group_pair

model= plm(avg_pk_comment_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_comment_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.02237  -1.03384   0.00000   0.64348  53.75737 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair 0.011746   0.011312  1.0384   0.2991
## 
## Total Sum of Squares:    872390
## Residual Sum of Squares: 872380
## R-Squared:      5.7576e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.07822 on 1 and 187268 DF, p-value: 0.2991

model= plm(log(avg_pk_comment_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_comment_cnt + 1) ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -2.04642 -0.25724  0.00000  0.29022  2.99243 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair 0.00099533 0.00310654  0.3204   0.7487
## 
## Total Sum of Squares:    65795
## Residual Sum of Squares: 65795
## R-Squared:      5.4817e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.102654 on 1 and 187268 DF, p-value: 0.74867

自变量：author_type_pair

model= plm(avg_pk_comment_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_comment_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.02231  -1.03553   0.00000   0.64385  53.76196 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.018610   0.049418  0.3766   0.7065
## 
## Total Sum of Squares:    872390
## Residual Sum of Squares: 872390
## R-Squared:      7.5727e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.141813 on 1 and 187268 DF, p-value: 0.70649

model= plm(log(avg_pk_comment_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_comment_cnt + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -2.04584 -0.25728  0.00000  0.29034  2.99191 
## 
## Coefficients:
##                    Estimate Std. Error t-value Pr(>|t|)
## author_type_pair -0.0050201  0.0135716 -0.3699   0.7115
## 
## Total Sum of Squares:    65795
## Residual Sum of Squares: 65795
## R-Squared:      7.3063e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.136823 on 1 and 187268 DF, p-value: 0.71146

(3.1) 自变量：author_income_range_pair

model= plm(avg_pk_comment_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_comment_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -10.02224  -1.03428   0.00000   0.64308  53.75993 
## 
## Coefficients:
##                                    Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 -0.022965   0.013401 -1.7137  0.08659 .
## factor(author_income_range_pair)3 -0.003764   0.013538 -0.2780  0.78099  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    872390
## Residual Sum of Squares: 872380
## R-Squared:      1.5843e-05
## Adj. R-Squared: -0.35543
## F-statistic: 1.48343 on 2 and 187267 DF, p-value: 0.22686

model= plm(log(avg_pk_comment_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_comment_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -2.04541 -0.25726  0.00000  0.29035  2.98955 
## 
## Coefficients:
##                                     Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 -0.0069049  0.0036803 -1.8762  0.06063 .
## factor(author_income_range_pair)3 -0.0010264  0.0037179 -0.2761  0.78249  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    65795
## Residual Sum of Squares: 65794
## R-Squared:      1.9055e-05
## Adj. R-Squared: -0.35543
## F-statistic: 1.78421 on 2 and 187267 DF, p-value: 0.16793

(4) PK人均点赞：avg_pk_like_cnt

(1)自变量：gender_pair

model= plm(avg_pk_like_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_like_cnt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -252.51464   -5.50915   -1.03281    0.23115  470.46564 
## 
## Coefficients:
##                      Estimate Std. Error t-value  Pr(>|t|)    
## factor(gender_pair)2 -0.12940    0.73878 -0.1751     0.861    
## factor(gender_pair)3 11.45601    1.58312  7.2363 4.627e-13 ***
## factor(gender_pair)4 11.58638    1.54190  7.5144 5.744e-14 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    115640000
## Residual Sum of Squares: 115590000
## R-Squared:      0.00038744
## Adj. R-Squared: -0.35494
## F-statistic: 24.1943 on 3 and 187266 DF, p-value: 1.2023e-15

model= plm(log(avg_pk_like_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_like_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -5.26953 -0.64278  0.00000  0.44784  5.03145 
## 
## Coefficients:
##                       Estimate Std. Error t-value Pr(>|t|)  
## factor(gender_pair)2 -0.052902   0.034961 -1.5132  0.13024  
## factor(gender_pair)3  0.142682   0.074917  1.9045  0.05684 .
## factor(gender_pair)4  0.123021   0.072966  1.6860  0.09180 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    258870
## Residual Sum of Squares: 258850
## R-Squared:      5.6676e-05
## Adj. R-Squared: -0.35539
## F-statistic: 3.53804 on 3 and 187266 DF, p-value: 0.014008

(2)自变量：fans_num_pair

model= plm(avg_pk_like_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_like_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -252.59897   -5.49819   -1.03266    0.21372  470.35995 
## 
## Coefficients:
##               Estimate Std. Error t-value Pr(>|t|)
## fans_num_pair  0.14939    0.12326  1.2119   0.2255
## 
## Total Sum of Squares:    115640000
## Residual Sum of Squares: 115630000
## R-Squared:      7.8433e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.4688 on 1 and 187268 DF, p-value: 0.22554

model= plm(log(avg_pk_like_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_like_cnt + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -5.27473 -0.64291  0.00000  0.44789  5.02964 
## 
## Coefficients:
##                Estimate Std. Error t-value Pr(>|t|)
## fans_num_pair 0.0093478  0.0058321  1.6028    0.109
## 
## Total Sum of Squares:    258870
## Residual Sum of Squares: 258860
## R-Squared:      1.3718e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.569 on 1 and 187268 DF, p-value: 0.10898

(2.1) 自变量：fans_range_pair

model= plm(avg_pk_like_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_like_cnt ~ factor(fans_range_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -252.47270   -5.46641   -1.02091    0.20554  470.45608 
## 
## Coefficients:
##                           Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2  0.072288   0.146423  0.4937   0.6215
## factor(fans_range_pair)3 -0.043476   0.162839 -0.2670   0.7895
## 
## Total Sum of Squares:    114420000
## Residual Sum of Squares: 114420000
## R-Squared:      2.0252e-06
## Adj. R-Squared: -0.3589
## F-statistic: 0.187476 on 2 and 185147 DF, p-value: 0.82905

model= plm(log(avg_pk_like_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_like_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -5.26409 -0.64251  0.00000  0.44569  5.02459 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2  0.0103777  0.0069315  1.4972   0.1344
## factor(fans_range_pair)3 -0.0053756  0.0077087 -0.6973   0.4856
## 
## Total Sum of Squares:    256430
## Residual Sum of Squares: 256420
## R-Squared:      1.7339e-05
## Adj. R-Squared: -0.35888
## F-statistic: 1.60519 on 2 and 185147 DF, p-value: 0.20085

(2.2) 自变量：fans_group_pair

model= plm(avg_pk_like_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_like_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -252.63902   -5.49790   -1.03659    0.21738  470.38563 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)  
## fans_group_pair  0.24079    0.13023  1.8489  0.06448 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    115640000
## Residual Sum of Squares: 115630000
## R-Squared:      1.8254e-05
## Adj. R-Squared: -0.35542
## F-statistic: 3.41838 on 1 and 187268 DF, p-value: 0.064476

model= plm(log(avg_pk_like_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_like_cnt + 1) ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -5.27453 -0.64327  0.00000  0.44766  5.02587 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair 0.0096072  0.0061619  1.5591    0.119
## 
## Total Sum of Squares:    258870
## Residual Sum of Squares: 258860
## R-Squared:      1.2981e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.43087 on 1 and 187268 DF, p-value: 0.11897

自变量：author_type_pair

model= plm(avg_pk_like_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_like_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -252.52134   -5.49713   -1.03751    0.22235  470.46226 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)  
## author_type_pair  1.14450    0.56895  2.0116  0.04426 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    115640000
## Residual Sum of Squares: 115630000
## R-Squared:      2.1608e-05
## Adj. R-Squared: -0.35542
## F-statistic: 4.04654 on 1 and 187268 DF, p-value: 0.044263

model= plm(log(avg_pk_like_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_like_cnt + 1) ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -5.26976 -0.64301  0.00000  0.44804  5.03111 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## author_type_pair -0.013709   0.026920 -0.5093   0.6106
## 
## Total Sum of Squares:    258870
## Residual Sum of Squares: 258870
## R-Squared:      1.3849e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.25935 on 1 and 187268 DF, p-value: 0.61057

(3.1) 自变量：author_income_range_pair

model= plm(avg_pk_like_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = avg_pk_like_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -252.66437   -5.49924   -1.03366    0.21441  470.32087 
## 
## Coefficients:
##                                   Estimate Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 -0.17996    0.15429 -1.1664   0.2434
## factor(author_income_range_pair)3 -0.17554    0.15587 -1.1262   0.2601
## 
## Total Sum of Squares:    115640000
## Residual Sum of Squares: 115630000
## R-Squared:      1.1142e-05
## Adj. R-Squared: -0.35544
## F-statistic: 1.04324 on 2 and 187267 DF, p-value: 0.35231

model= plm(log(avg_pk_like_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(avg_pk_like_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -5.27016 -0.64331  0.00000  0.44778  5.02821 
## 
## Coefficients:
##                                      Estimate  Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 -0.00054812  0.00729995 -0.0751  0.94015  
## factor(author_income_range_pair)3 -0.01478998  0.00737465 -2.0055  0.04491 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    258870
## Residual Sum of Squares: 258860
## R-Squared:      2.2621e-05
## Adj. R-Squared: -0.35542
## F-statistic: 2.11814 on 2 and 187267 DF, p-value: 0.12026

(5) Pk关注主播数：pk_follow_author_cnt

(1)自变量：gender_pair

model= plm(pk_follow_author_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_author_cnt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -475.010714   -0.287402   -0.015835    0.029412 1490.533162 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2  0.22439    0.31554  0.7111   0.4770
## factor(gender_pair)3  0.91236    0.67616  1.3493   0.1772
## factor(gender_pair)4  0.43677    0.65855  0.6632   0.5072
## 
## Total Sum of Squares:    21087000
## Residual Sum of Squares: 21086000
## R-Squared:      4.9064e-05
## Adj. R-Squared: -0.3554
## F-statistic: 3.06284 on 3 and 187266 DF, p-value: 0.026889

model= plm(log(pk_follow_author_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_author_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##     Min.  1st Qu.   Median  3rd Qu.     Max. 
## -3.03411 -0.13699 -0.01290  0.00000  6.17451 
## 
## Coefficients:
##                         Estimate  Std. Error t-value Pr(>|t|)  
## factor(gender_pair)2 -0.02285659  0.01349319 -1.6939  0.09028 .
## factor(gender_pair)3  0.02558345  0.02891425  0.8848  0.37626  
## factor(gender_pair)4  0.00038542  0.02816138  0.0137  0.98908  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    38562
## Residual Sum of Squares: 38558
## R-Squared:      8.9282e-05
## Adj. R-Squared: -0.35534
## F-statistic: 5.57368 on 3 and 187266 DF, p-value: 0.00080677

(2)自变量：fans_num_pair

model= plm(pk_follow_author_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_author_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -475.010006   -0.288475   -0.025680    0.033767 1490.448404 
## 
## Coefficients:
##                Estimate Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.113600   0.052637 -2.1582  0.03091 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    21087000
## Residual Sum of Squares: 21086000
## R-Squared:      2.4872e-05
## Adj. R-Squared: -0.35541
## F-statistic: 4.65777 on 1 and 187268 DF, p-value: 0.030915

model= plm(log(pk_follow_author_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_author_cnt + 1) ~ fans_num_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -3.023320 -0.136896 -0.016597  0.000000  6.183322 
## 
## Coefficients:
##                 Estimate Std. Error t-value  Pr(>|t|)    
## fans_num_pair -0.0217771  0.0022504  -9.677 < 2.2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    38562
## Residual Sum of Squares: 38543
## R-Squared:      0.0004998
## Adj. R-Squared: -0.35477
## F-statistic: 93.6435 on 1 and 187268 DF, p-value: < 2.22e-16

(2.1) 自变量：fans_range_pair

model= plm(pk_follow_author_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_author_cnt ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -475.057610   -0.282764   -0.018452    0.031423 1490.411761 
## 
## Coefficients:
##                          Estimate Std. Error t-value Pr(>|t|)  
## factor(fans_range_pair)2 0.117474   0.058209  2.0181  0.04358 *
## factor(fans_range_pair)3 0.027481   0.064735  0.4245  0.67119  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    18084000
## Residual Sum of Squares: 18083000
## R-Squared:      2.2017e-05
## Adj. R-Squared: -0.35887
## F-statistic: 2.03828 on 2 and 185147 DF, p-value: 0.13026

model= plm(log(pk_follow_author_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_author_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -3.0341883 -0.1355298 -0.0085059  0.0000000  6.0836567 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -4.6981e-05  2.6391e-03 -0.0178   0.9858
## factor(fans_range_pair)3  1.0255e-04  2.9350e-03  0.0349   0.9721
## 
## Total Sum of Squares:    37172
## Residual Sum of Squares: 37172
## R-Squared:      9.8419e-09
## Adj. R-Squared: -0.3589
## F-statistic: 0.0009111 on 2 and 185147 DF, p-value: 0.99909

(2.2) 自变量：fans_group_pair

model= plm(pk_follow_author_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_author_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -475.013710   -0.286092   -0.024239    0.031742 1490.465159 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)  
## fans_group_pair -0.097108   0.055614 -1.7461  0.08079 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    21087000
## Residual Sum of Squares: 21087000
## R-Squared:      1.6281e-05
## Adj. R-Squared: -0.35543
## F-statistic: 3.04889 on 1 and 187268 DF, p-value: 0.080794

model= plm(log(pk_follow_author_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_author_cnt + 1) ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -3.024834 -0.136810 -0.015342  0.000000  6.175272 
## 
## Coefficients:
##                   Estimate Std. Error t-value  Pr(>|t|)    
## fans_group_pair -0.0188904  0.0023779 -7.9443 1.964e-15 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    38562
## Residual Sum of Squares: 38549
## R-Squared:      0.0003369
## Adj. R-Squared: -0.35499
## F-statistic: 63.1119 on 1 and 187268 DF, p-value: 1.9637e-15

自变量：author_type_pair

model= plm(pk_follow_author_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_author_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -475.010188   -0.281742   -0.019431    0.023240 1490.465092 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.0035154  0.2429624  0.0145   0.9885
## 
## Total Sum of Squares:    21087000
## Residual Sum of Squares: 21087000
## R-Squared:      1.1179e-09
## Adj. R-Squared: -0.35545
## F-statistic: 0.000209348 on 1 and 187268 DF, p-value: 0.98846

model= plm(log(pk_follow_author_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_author_cnt + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -3.034177 -0.136941 -0.010467  0.000000  6.173100 
## 
## Coefficients:
##                    Estimate Std. Error t-value Pr(>|t|)
## author_type_pair -0.0045509  0.0103899  -0.438   0.6614
## 
## Total Sum of Squares:    38562
## Residual Sum of Squares: 38562
## R-Squared:      1.0245e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.191856 on 1 and 187268 DF, p-value: 0.66138

(3.1) 自变量：author_income_range_pair

model= plm(pk_follow_author_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_author_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -474.970946   -0.286227   -0.024463    0.031128 1490.398741 
## 
## Coefficients:
##                                    Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 -0.061732   0.065885 -0.9370  0.34878  
## factor(author_income_range_pair)3 -0.117182   0.066559 -1.7606  0.07831 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    21087000
## Residual Sum of Squares: 21086000
## R-Squared:      1.7864e-05
## Adj. R-Squared: -0.35543
## F-statistic: 1.67274 on 2 and 187267 DF, p-value: 0.18774

model= plm(log(pk_follow_author_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_author_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##      Min.   1st Qu.    Median   3rd Qu.      Max. 
## -3.034163 -0.136891 -0.011248  0.000000  6.169335 
## 
## Coefficients:
##                                     Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2  0.0045915  0.0028174  1.6297  0.10317  
## factor(author_income_range_pair)3 -0.0057333  0.0028463 -2.0143  0.04398 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    38562
## Residual Sum of Squares: 38560
## R-Squared:      4.8238e-05
## Adj. R-Squared: -0.35539
## F-statistic: 4.51687 on 2 and 187267 DF, p-value: 0.010924

(6) PK取消关注主播数：pk_cancel_follow_author_cnt

(1)自变量：gender_pair

model= plm(pk_cancel_follow_author_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_author_cnt ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.6133e+02 -1.1035e-01 -8.5756e-03  8.5756e-03  6.2947e+02 
## 
## Coefficients:
##                      Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 0.116749   0.093982  1.2423   0.2141
## factor(gender_pair)3 0.204621   0.201392  1.0160   0.3096
## factor(gender_pair)4 0.071722   0.196148  0.3657   0.7146
## 
## Total Sum of Squares:    1870700
## Residual Sum of Squares: 1870600
## R-Squared:      4.8426e-05
## Adj. R-Squared: -0.3554
## F-statistic: 3.02297 on 3 and 187266 DF, p-value: 0.028391

model= plm(log(pk_cancel_follow_author_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_author_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.5920e+00 -6.7825e-02 -1.0662e-03  6.8592e-05  4.7098e+00 
## 
## Coefficients:
##                        Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2  0.0013524  0.0082734  0.1635   0.8702
## factor(gender_pair)3 -0.0085600  0.0177288 -0.4828   0.6292
## factor(gender_pair)4 -0.0168236  0.0172672 -0.9743   0.3299
## 
## Total Sum of Squares:    14497
## Residual Sum of Squares: 14496
## R-Squared:      2.7084e-05
## Adj. R-Squared: -0.35543
## F-statistic: 1.69066 on 3 and 187266 DF, p-value: 0.16661

(2)自变量：fans_num_pair

model= plm(pk_cancel_follow_author_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_author_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.6133e+02 -1.0936e-01 -8.9277e-03  8.2627e-03  6.2957e+02 
## 
## Coefficients:
##                Estimate Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.026422   0.015678 -1.6853  0.09193 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1870700
## Residual Sum of Squares: 1870700
## R-Squared:      1.5167e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.84026 on 1 and 187268 DF, p-value: 0.091931

model= plm(log(pk_cancel_follow_author_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_author_cnt + 1) ~ fans_num_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.59134007 -0.06748711 -0.00271944  0.00019047  4.71263240 
## 
## Coefficients:
##                 Estimate Std. Error t-value  Pr(>|t|)    
## fans_num_pair -0.0064846  0.0013801 -4.6988 2.619e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    14497
## Residual Sum of Squares: 14495
## R-Squared:      0.00011789
## Adj. R-Squared: -0.35529
## F-statistic: 22.0789 on 1 and 187268 DF, p-value: 2.6185e-06

(2.1) 自变量：fans_range_pair

model= plm(pk_cancel_follow_author_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_author_cnt ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.6135e+02 -1.0676e-01 -4.6320e-03  6.9681e-03  4.4622e+02 
## 
## Coefficients:
##                           Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 0.0237865  0.0161759  1.4705   0.1414
## factor(fans_range_pair)3 0.0048399  0.0179894  0.2690   0.7879
## 
## Total Sum of Squares:    1396500
## Residual Sum of Squares: 1396500
## R-Squared:      1.1679e-05
## Adj. R-Squared: -0.35889
## F-statistic: 1.08118 on 2 and 185147 DF, p-value: 0.3392

model= plm(log(pk_cancel_follow_author_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_author_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.5919e+00 -6.6539e-02 -1.0003e-03  1.1566e-05  4.8318e+00 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.00180961  0.00161252 -1.1222   0.2618
## factor(fans_range_pair)3 -0.00074626  0.00179331 -0.4161   0.6773
## 
## Total Sum of Squares:    13878
## Residual Sum of Squares: 13877
## R-Squared:      7.0558e-06
## Adj. R-Squared: -0.35889
## F-statistic: 0.653186 on 2 and 185147 DF, p-value: 0.52039

(2.2) 自变量：fans_group_pair

model= plm(pk_cancel_follow_author_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_author_cnt ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.6133e+02 -1.0889e-01 -8.9746e-03  8.9402e-03  6.2959e+02 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## fans_group_pair -0.015805   0.016565 -0.9542     0.34
## 
## Total Sum of Squares:    1870700
## Residual Sum of Squares: 1870700
## R-Squared:      4.8617e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.910451 on 1 and 187268 DF, p-value: 0.34

model= plm(log(pk_cancel_follow_author_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_author_cnt + 1) ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.5914e+00 -6.7555e-02 -1.9512e-03  6.0194e-05  4.7172e+00 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)   
## fans_group_pair -0.0046681  0.0014581 -3.2014 0.001368 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    14497
## Residual Sum of Squares: 14496
## R-Squared:      5.4726e-05
## Adj. R-Squared: -0.35537
## F-statistic: 10.249 on 1 and 187268 DF, p-value: 0.0013678

自变量：author_type_pair

model= plm(pk_cancel_follow_author_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_author_cnt ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.6133e+02 -1.0903e-01 -8.8899e-03  8.8899e-03  6.2959e+02 
## 
## Coefficients:
##                  Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.035709   0.072366  0.4934   0.6217
## 
## Total Sum of Squares:    1870700
## Residual Sum of Squares: 1870700
## R-Squared:      1.3002e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.243491 on 1 and 187268 DF, p-value: 0.6217

model= plm(log(pk_cancel_follow_author_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_author_cnt + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.5913e+00 -6.7918e-02 -9.7344e-04  3.5585e-05  4.7172e+00 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.0059696  0.0063704  0.9371   0.3487
## 
## Total Sum of Squares:    14497
## Residual Sum of Squares: 14497
## R-Squared:      4.6892e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.878141 on 1 and 187268 DF, p-value: 0.34871

(3.1) 自变量：author_income_range_pair

model= plm(pk_cancel_follow_author_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_author_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.6132e+02 -1.1026e-01 -9.1507e-03  8.7813e-03  6.2956e+02 
## 
## Coefficients:
##                                    Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2 -0.040746   0.019624 -2.0764  0.03786 *
## factor(author_income_range_pair)3 -0.033511   0.019824 -1.6904  0.09095 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1870700
## Residual Sum of Squares: 1870600
## R-Squared:      3.0597e-05
## Adj. R-Squared: -0.35541
## F-statistic: 2.86499 on 2 and 187267 DF, p-value: 0.056986

model= plm(log(pk_cancel_follow_author_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_author_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.5923e+00 -6.7810e-02 -1.0697e-03  8.7877e-05  4.7182e+00 
## 
## Coefficients:
##                                      Estimate  Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2  0.00126939  0.00172750  0.7348   0.4625
## factor(author_income_range_pair)3 -0.00063978  0.00174518 -0.3666   0.7139
## 
## Total Sum of Squares:    14497
## Residual Sum of Squares: 14497
## R-Squared:      4.6657e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.436869 on 2 and 187267 DF, p-value: 0.64606

(7) pk关注观众数：pk_follow_user_cnt

(1)自变量：gender_pair

model= plm(pk_follow_user_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_user_cnt ~ factor(gender_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -46.9631251  -0.0847792  -0.0073764   0.0034914 107.4219001 
## 
## Coefficients:
##                       Estimate Std. Error t-value  Pr(>|t|)    
## factor(gender_pair)2 -0.165122   0.035689 -4.6266 3.719e-06 ***
## factor(gender_pair)3 -0.271189   0.076478 -3.5460 0.0003913 ***
## factor(gender_pair)4 -0.217383   0.074487 -2.9184 0.0035186 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    269800
## Residual Sum of Squares: 269760
## R-Squared:      0.00016511
## Adj. R-Squared: -0.35524
## F-statistic: 10.308 on 3 and 187266 DF, p-value: 8.8304e-07

model= plm(log(pk_follow_user_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_user_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.23131171 -0.05119064 -0.00164235  0.00059202  3.79617988 
## 
## Coefficients:
##                        Estimate Std. Error t-value Pr(>|t|)   
## factor(gender_pair)2 -0.0229553  0.0080566 -2.8492 0.004383 **
## factor(gender_pair)3 -0.0462254  0.0172643 -2.6775 0.007418 **
## factor(gender_pair)4 -0.0329623  0.0168148 -1.9603 0.049961 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    13748
## Residual Sum of Squares: 13747
## R-Squared:      0.00010114
## Adj. R-Squared: -0.35533
## F-statistic: 6.31419 on 3 and 187266 DF, p-value: 0.0002811

(2)自变量：fans_num_pair

model= plm(pk_follow_user_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_user_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -46.9823755  -0.0837122  -0.0065461   0.0032179 107.4285706 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)  
## fans_num_pair -0.0152724  0.0059539 -2.5651  0.01032 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    269800
## Residual Sum of Squares: 269790
## R-Squared:      3.5134e-05
## Adj. R-Squared: -0.3554
## F-statistic: 6.57969 on 1 and 187268 DF, p-value: 0.010316

model= plm(log(pk_follow_user_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_user_cnt + 1) ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.23130046 -0.05095484 -0.00165360  0.00069991  3.79860695 
## 
## Coefficients:
##                 Estimate Std. Error t-value  Pr(>|t|)    
## fans_num_pair -0.0056046  0.0013440 -4.1702 3.045e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    13748
## Residual Sum of Squares: 13747
## R-Squared:      9.2856e-05
## Adj. R-Squared: -0.35532
## F-statistic: 17.3905 on 1 and 187268 DF, p-value: 3.0448e-05

(2.1) 自变量：fans_range_pair

model= plm(pk_follow_user_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_user_cnt ~ factor(fans_range_pair), data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -46.9878830  -0.0816713  -0.0059594   0.0027576 107.4219839 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2 -0.0001495  0.0068327 -0.0219   0.9825
## factor(fans_range_pair)3 -0.0065716  0.0075987 -0.8648   0.3871
## 
## Total Sum of Squares:    249160
## Residual Sum of Squares: 249160
## R-Squared:      4.1407e-06
## Adj. R-Squared: -0.3589
## F-statistic: 0.383319 on 2 and 185147 DF, p-value: 0.6816

model= plm(log(pk_follow_user_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_user_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.23119877 -0.04993520 -0.00156610  0.00047881  3.79633900 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)
## factor(fans_range_pair)2  0.00037837  0.00157710  0.2399   0.8104
## factor(fans_range_pair)3 -0.00024120  0.00175391 -0.1375   0.8906
## 
## Total Sum of Squares:    13274
## Residual Sum of Squares: 13274
## R-Squared:      4.9363e-07
## Adj. R-Squared: -0.3589
## F-statistic: 0.0456973 on 2 and 185147 DF, p-value: 0.95533

(2.2) 自变量：fans_group_pair

model= plm(pk_follow_user_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_user_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -46.9900518  -0.0836494  -0.0064534   0.0036885 107.4220545 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)  
## fans_group_pair -0.0115371  0.0062907  -1.834  0.06666 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    269800
## Residual Sum of Squares: 269790
## R-Squared:      1.7961e-05
## Adj. R-Squared: -0.35542
## F-statistic: 3.36356 on 1 and 187268 DF, p-value: 0.066655

model= plm(log(pk_follow_user_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_user_cnt + 1) ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -2.2313242 -0.0510199 -0.0016299  0.0006944  3.7962180 
## 
## Coefficients:
##                  Estimate Std. Error t-value  Pr(>|t|)    
## fans_group_pair -0.005892   0.001420 -4.1494 3.335e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    13748
## Residual Sum of Squares: 13747
## R-Squared:      9.1931e-05
## Adj. R-Squared: -0.35532
## F-statistic: 17.2173 on 1 and 187268 DF, p-value: 3.3353e-05

自变量：author_type_pair

model= plm(pk_follow_user_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_user_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -46.9899891  -0.0833955  -0.0065381   0.0032849 107.4232395 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## author_type_pair -0.008443   0.027482 -0.3072   0.7587
## 
## Total Sum of Squares:    269800
## Residual Sum of Squares: 269800
## R-Squared:      5.04e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.0943823 on 1 and 187268 DF, p-value: 0.75868

model= plm(log(pk_follow_user_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_user_cnt + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.23129225 -0.05117205 -0.00166181  0.00056133  3.79614775 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)
## author_type_pair 0.0004371  0.0062037  0.0705   0.9438
## 
## Total Sum of Squares:    13748
## Residual Sum of Squares: 13748
## R-Squared:      2.6507e-08
## Adj. R-Squared: -0.35545
## F-statistic: 0.00496422 on 1 and 187268 DF, p-value: 0.94383

(3.1) 自变量：author_income_range_pair

model= plm(pk_follow_user_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_follow_user_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -46.9895647  -0.0837803  -0.0066150   0.0032619 107.4243412 
## 
## Coefficients:
##                                     Estimate Std. Error t-value Pr(>|t|)  
## factor(author_income_range_pair)2  0.0008390  0.0074525  0.1126   0.9104  
## factor(author_income_range_pair)3 -0.0166933  0.0075287 -2.2173   0.0266 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    269800
## Residual Sum of Squares: 269790
## R-Squared:      2.8976e-05
## Adj. R-Squared: -0.35542
## F-statistic: 2.71324 on 2 and 187267 DF, p-value: 0.066324

model= plm(log(pk_follow_user_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_follow_user_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -2.23147309 -0.05098447 -0.00166154  0.00056224  3.79688360 
## 
## Coefficients:
##                                      Estimate  Std. Error t-value Pr(>|t|)   
## factor(author_income_range_pair)2 -0.00036113  0.00168227 -0.2147 0.830025   
## factor(author_income_range_pair)3 -0.00487387  0.00169949 -2.8678 0.004133 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    13748
## Residual Sum of Squares: 13747
## R-Squared:      4.5536e-05
## Adj. R-Squared: -0.35539
## F-statistic: 4.26389 on 2 and 187267 DF, p-value: 0.014069

(8) pk取消关注关注数：pk_cancel_follow_user_cnt

(1)自变量：gender_pair

model= plm(pk_cancel_follow_user_cnt ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_user_cnt ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.2001e+01 -2.9579e-03  0.0000e+00  7.2688e-04  2.5834e+01 
## 
## Coefficients:
##                        Estimate Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 0.00034142 0.00633062  0.0539   0.9570
## factor(gender_pair)3 0.00305721 0.01356575  0.2254   0.8217
## factor(gender_pair)4 0.00494687 0.01321252  0.3744   0.7081
## 
## Total Sum of Squares:    8487.6
## Residual Sum of Squares: 8487.6
## R-Squared:      2.5795e-06
## Adj. R-Squared: -0.35546
## F-statistic: 0.161019 on 3 and 187266 DF, p-value: 0.9226

model= plm(log(pk_cancel_follow_user_cnt+1) ~ factor(gender_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_user_cnt + 1) ~ factor(gender_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.61060725 -0.00218222  0.00000000  0.00059232  2.88914029 
## 
## Coefficients:
##                         Estimate  Std. Error t-value Pr(>|t|)
## factor(gender_pair)2 -0.00028138  0.00360457 -0.0781   0.9378
## factor(gender_pair)3  0.00169917  0.00772414  0.2200   0.8259
## factor(gender_pair)4  0.00284648  0.00752302  0.3784   0.7052
## 
## Total Sum of Squares:    2751.7
## Residual Sum of Squares: 2751.7
## R-Squared:      3.1603e-06
## Adj. R-Squared: -0.35546
## F-statistic: 0.19727 on 3 and 187266 DF, p-value: 0.8983

(2)自变量：fans_num_pair

model= plm(pk_cancel_follow_user_cnt ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_user_cnt ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.2001e+01 -3.0230e-03  0.0000e+00  7.4649e-04  2.5835e+01 
## 
## Coefficients:
##                  Estimate  Std. Error t-value Pr(>|t|)
## fans_num_pair -0.00082668  0.00105604 -0.7828   0.4337
## 
## Total Sum of Squares:    8487.6
## Residual Sum of Squares: 8487.6
## R-Squared:      3.2723e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.612794 on 1 and 187268 DF, p-value: 0.43374

model= plm(log(pk_cancel_follow_user_cnt+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_user_cnt + 1) ~ fans_num_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.61034919 -0.00223153  0.00000000  0.00062705  2.88947726 
## 
## Coefficients:
##                  Estimate  Std. Error t-value Pr(>|t|)
## fans_num_pair -0.00050912  0.00060130 -0.8467   0.3972
## 
## Total Sum of Squares:    2751.7
## Residual Sum of Squares: 2751.7
## R-Squared:      3.8283e-06
## Adj. R-Squared: -0.35544
## F-statistic: 0.716921 on 1 and 187268 DF, p-value: 0.39716

(2.1) 自变量：fans_range_pair

model= plm(pk_cancel_follow_user_cnt ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_user_cnt ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.1999e+01 -3.6169e-03 -7.1451e-05  8.0178e-04  2.4800e+01 
## 
## Coefficients:
##                            Estimate Std. Error t-value Pr(>|t|)   
## factor(fans_range_pair)2 -0.0012779  0.0012213 -1.0463 0.295412   
## factor(fans_range_pair)3 -0.0042630  0.0013582 -3.1387 0.001697 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    7960.7
## Residual Sum of Squares: 7960.2
## R-Squared:      5.4486e-05
## Adj. R-Squared: -0.35883
## F-statistic: 5.04424 on 2 and 185147 DF, p-value: 0.0064472

model= plm(log(pk_cancel_follow_user_cnt+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_user_cnt + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -1.6096315 -0.0023101  0.0000000  0.0006194  2.7732659 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)  
## factor(fans_range_pair)2 -0.00053751  0.00069903 -0.7689  0.44193  
## factor(fans_range_pair)3 -0.00188514  0.00077740 -2.4249  0.01531 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    2607.9
## Residual Sum of Squares: 2607.8
## R-Squared:      3.2369e-05
## Adj. R-Squared: -0.35886
## F-statistic: 2.99661 on 2 and 185147 DF, p-value: 0.049959

(2.2) 自变量：fans_group_pair

model= plm(pk_cancel_follow_user_cnt ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_user_cnt ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.2001e+01 -2.8152e-03  0.0000e+00  7.9339e-04  2.5834e+01 
## 
## Coefficients:
##                    Estimate  Std. Error t-value Pr(>|t|)
## fans_group_pair -5.3623e-06  1.1158e-03 -0.0048   0.9962
## 
## Total Sum of Squares:    8487.6
## Residual Sum of Squares: 8487.6
## R-Squared:      1.2336e-10
## Adj. R-Squared: -0.35545
## F-statistic: 2.30973e-05 on 1 and 187268 DF, p-value: 0.99617

model= plm(log(pk_cancel_follow_user_cnt+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_user_cnt + 1) ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.61060356 -0.00212909  0.00000000  0.00058561  2.88917130 
## 
## Coefficients:
##                    Estimate  Std. Error t-value Pr(>|t|)
## fans_group_pair -0.00010227  0.00063530  -0.161   0.8721
## 
## Total Sum of Squares:    2751.7
## Residual Sum of Squares: 2751.7
## R-Squared:      1.3838e-07
## Adj. R-Squared: -0.35545
## F-statistic: 0.0259148 on 1 and 187268 DF, p-value: 0.87211

自变量：author_type_pair

model= plm(pk_cancel_follow_user_cnt ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_user_cnt ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.2001e+01 -3.3218e-03  0.0000e+00  7.9503e-04  2.5834e+01 
## 
## Coefficients:
##                    Estimate Std. Error t-value Pr(>|t|)
## author_type_pair -0.0059511  0.0048744 -1.2209   0.2221
## 
## Total Sum of Squares:    8487.6
## Residual Sum of Squares: 8487.5
## R-Squared:      7.9595e-06
## Adj. R-Squared: -0.35544
## F-statistic: 1.49058 on 1 and 187268 DF, p-value: 0.22213

model= plm(log(pk_cancel_follow_user_cnt+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_user_cnt + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##       Min.    1st Qu.     Median    3rd Qu.       Max. 
## -1.6106029 -0.0022635  0.0000000  0.0006168  2.8891360 
## 
## Coefficients:
##                    Estimate Std. Error t-value Pr(>|t|)
## author_type_pair -0.0041267  0.0027754 -1.4869   0.1371
## 
## Total Sum of Squares:    2751.7
## Residual Sum of Squares: 2751.6
## R-Squared:      1.1805e-05
## Adj. R-Squared: -0.35543
## F-statistic: 2.21074 on 1 and 187268 DF, p-value: 0.13705

(3.1) 自变量：author_income_range_pair

model= plm(pk_cancel_follow_user_cnt ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = pk_cancel_follow_user_cnt ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.2001e+01 -3.1500e-03  0.0000e+00  7.2398e-04  2.5834e+01 
## 
## Coefficients:
##                                      Estimate  Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 -0.00026993  0.00132183 -0.2042   0.8382
## factor(author_income_range_pair)3 -0.00151872  0.00133536 -1.1373   0.2554
## 
## Total Sum of Squares:    8487.6
## Residual Sum of Squares: 8487.5
## R-Squared:      6.9553e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.651256 on 2 and 187267 DF, p-value: 0.52139

model= plm(log(pk_cancel_follow_user_cnt+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(pk_cancel_follow_user_cnt + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -1.61060309 -0.00221184  0.00000000  0.00060995  2.88893390 
## 
## Coefficients:
##                                      Estimate  Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 -6.4352e-05  7.5263e-04 -0.0855   0.9319
## factor(author_income_range_pair)3 -6.1147e-04  7.6034e-04 -0.8042   0.4213
## 
## Total Sum of Squares:    2751.7
## Residual Sum of Squares: 2751.7
## R-Squared:      3.5414e-06
## Adj. R-Squared: -0.35545
## F-statistic: 0.331594 on 2 and 187267 DF, p-value: 0.71778

(11) 主播是否主播互关(PK期间产生的关注): is_follow_each_other

(1)自变量：gender_pair

model= glm(is_follow_each_other ~ factor(gender_pair), data = pdata,family = binomial())
summary(model)

## 
## Call:
## glm(formula = is_follow_each_other ~ factor(gender_pair), family = binomial(), 
##     data = pdata)
## 
## Coefficients:
##                      Estimate Std. Error z value Pr(>|z|)    
## (Intercept)          -3.76381    0.06410 -58.715  < 2e-16 ***
## factor(gender_pair)2  0.29909    0.08182   3.656 0.000256 ***
## factor(gender_pair)3  0.27545    0.07523   3.662 0.000251 ***
## factor(gender_pair)4 -1.57240    0.07156 -21.973  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 26273  on 253832  degrees of freedom
## Residual deviance: 24531  on 253829  degrees of freedom
## AIC: 24539
## 
## Number of Fisher Scoring iterations: 8

(2)自变量：fans_num_pair

model= plm(is_follow_each_other ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = is_follow_each_other ~ fans_num_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -0.75021774 -0.00058178  0.00000000  0.00042248  0.99371534 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)   
## fans_num_pair 0.00122979 0.00040919  3.0054 0.002652 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1274.3
## Residual Sum of Squares: 1274.3
## R-Squared:      4.8231e-05
## Adj. R-Squared: -0.35538
## F-statistic: 9.03264 on 1 and 187268 DF, p-value: 0.0026524

model= plm(log(is_follow_each_other+1) ~ fans_num_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(is_follow_each_other + 1) ~ fans_num_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -0.52001131 -0.00040326  0.00000000  0.00029284  0.68879098 
## 
## Coefficients:
##                 Estimate Std. Error t-value Pr(>|t|)   
## fans_num_pair 0.00085242 0.00028363  3.0054 0.002652 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    612.26
## Residual Sum of Squares: 612.23
## R-Squared:      4.8231e-05
## Adj. R-Squared: -0.35538
## F-statistic: 9.03264 on 1 and 187268 DF, p-value: 0.0026524

(2.1) 自变量：fans_range_pair

model= plm(is_follow_each_other ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = is_follow_each_other ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -0.74971580 -0.00054672  0.00000000  0.00042976  0.99338618 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)  
## factor(fans_range_pair)2  0.00085647  0.00048135  1.7793  0.07519 .
## factor(fans_range_pair)3 -0.00112514  0.00053532 -2.1018  0.03557 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1236.6
## Residual Sum of Squares: 1236.6
## R-Squared:      4.9894e-05
## Adj. R-Squared: -0.35884
## F-statistic: 4.61912 on 2 and 185147 DF, p-value: 0.0098626

model= plm(log(is_follow_each_other+1) ~ factor(fans_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(is_follow_each_other + 1) ~ factor(fans_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66253, T = 1-197, N = 251598
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -0.51966339 -0.00037895  0.00000000  0.00029789  0.68856283 
## 
## Coefficients:
##                             Estimate  Std. Error t-value Pr(>|t|)  
## factor(fans_range_pair)2  0.00059366  0.00033365  1.7793  0.07519 .
## factor(fans_range_pair)3 -0.00077988  0.00037105 -2.1018  0.03557 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    594.15
## Residual Sum of Squares: 594.12
## R-Squared:      4.9894e-05
## Adj. R-Squared: -0.35884
## F-statistic: 4.61912 on 2 and 185147 DF, p-value: 0.0098626

(2.2) 自变量：fans_group_pair

model= plm(is_follow_each_other ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = is_follow_each_other ~ fans_group_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -0.74981341 -0.00051225  0.00000000  0.00035904  0.99314229 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)  
## fans_group_pair 0.00105974 0.00043233  2.4512  0.01424 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1274.3
## Residual Sum of Squares: 1274.3
## R-Squared:      3.2084e-05
## Adj. R-Squared: -0.3554
## F-statistic: 6.00847 on 1 and 187268 DF, p-value: 0.014238

model= plm(log(is_follow_each_other+1) ~ fans_group_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(is_follow_each_other + 1) ~ fans_group_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -0.51973105 -0.00035506  0.00000000  0.00024886  0.68839378 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)  
## fans_group_pair 0.00073455 0.00029967  2.4512  0.01424 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    612.26
## Residual Sum of Squares: 612.24
## R-Squared:      3.2084e-05
## Adj. R-Squared: -0.3554
## F-statistic: 6.00847 on 1 and 187268 DF, p-value: 0.014238

自变量：author_type_pair

model= plm(is_follow_each_other ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = is_follow_each_other ~ author_type_pair, data = pdata, 
##     effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -0.75008357 -0.00037673  0.00000000  0.00027387  0.99367484 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)  
## author_type_pair 0.0032782  0.0018887  1.7356  0.08263 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    1274.3
## Residual Sum of Squares: 1274.3
## R-Squared:      1.6086e-05
## Adj. R-Squared: -0.35543
## F-statistic: 3.01247 on 1 and 187268 DF, p-value: 0.082628

model= plm(log(is_follow_each_other+1) ~ author_type_pair, data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(is_follow_each_other + 1) ~ author_type_pair, 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -0.51991831 -0.00026113  0.00000000  0.00018984  0.68876291 
## 
## Coefficients:
##                   Estimate Std. Error t-value Pr(>|t|)  
## author_type_pair 0.0022723  0.0013092  1.7356  0.08263 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Total Sum of Squares:    612.26
## Residual Sum of Squares: 612.25
## R-Squared:      1.6086e-05
## Adj. R-Squared: -0.35543
## F-statistic: 3.01247 on 1 and 187268 DF, p-value: 0.082628

(3.1) 自变量：author_income_range_pair

model= plm(is_follow_each_other ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = is_follow_each_other ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -0.75031536 -0.00039069  0.00000000  0.00032523  0.99391240 
## 
## Coefficients:
##                                      Estimate  Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 -9.3671e-05  5.1218e-04 -0.1829   0.8549
## factor(author_income_range_pair)3 -7.2882e-04  5.1743e-04 -1.4085   0.1590
## 
## Total Sum of Squares:    1274.3
## Residual Sum of Squares: 1274.3
## R-Squared:      1.0788e-05
## Adj. R-Squared: -0.35544
## F-statistic: 1.01009 on 2 and 187267 DF, p-value: 0.36419

model= plm(log(is_follow_each_other+1) ~ factor(author_income_range_pair), data = pdata,model = "within", effect = "twoways")
summary(model)

## Twoways effects Within Model
## 
## Call:
## plm(formula = log(is_follow_each_other + 1) ~ factor(author_income_range_pair), 
##     data = pdata, effect = "twoways", model = "within")
## 
## Unbalanced Panel: n = 66368, T = 1-197, N = 253833
## 
## Residuals:
##        Min.     1st Qu.      Median     3rd Qu.        Max. 
## -0.52007897 -0.00027081  0.00000000  0.00022543  0.68892758 
## 
## Coefficients:
##                                      Estimate  Std. Error t-value Pr(>|t|)
## factor(author_income_range_pair)2 -6.4928e-05  3.5502e-04 -0.1829   0.8549
## factor(author_income_range_pair)3 -5.0518e-04  3.5865e-04 -1.4085   0.1590
## 
## Total Sum of Squares:    612.26
## Residual Sum of Squares: 612.26
## R-Squared:      1.0788e-05
## Adj. R-Squared: -0.35544
## F-statistic: 1.01009 on 2 and 187267 DF, p-value: 0.36419

3. Within Random PK

Qinlu

2024-09-07

1.读取并处理数据

1.1 对于每个author按照p_date的顺序对于live_id进行排序(处理为panel结构)

1.2 处理categorical variables

1.3 处理treatment variables

2 查看panel data数据结构

3.Panel data regression

3.1 直播间相关DV

(1) 直播间打赏金额：total_cost_amt

(2) 人均观看：avg_valid_play_duration

(3) 人均评论：avg_comment_cnt

(4) 人均点赞：avg_like_cnt

(5) 关注主播数：follow_author_cnt

(6) 取消关注主播数：cancel_follow_author_cnt

(7) 关注观众数：follow_user_cnt

(8) 取消关注关注数：cancel_follow_user_cnt

(9) 加入粉丝团次数：join_fans_group_cnt

(10) 第一次看这个主播的用户：live_new_user_num

(11) 举报直播次数：report_live_cnt

3.2 PK期间DV

(1) PK期间收入：pk_total_cost_amt

(2) PK人均观看时长：avg_pK_play_duration

(3) PK人均评论：avg_pk_comment_cnt

(4) PK人均点赞：avg_pk_like_cnt

(5) Pk关注主播数：pk_follow_author_cnt

(6) PK取消关注主播数：pk_cancel_follow_author_cnt

(7) pk关注观众数：pk_follow_user_cnt

(8) pk取消关注关注数：pk_cancel_follow_user_cnt

(11) 主播是否主播互关(PK期间产生的关注): is_follow_each_other