Skip to content

Instantly share code, notes, and snippets.

@mkim0710

mkim0710/ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit from .r

Created July 28, 2018 20:32
Show Gist options
  • Save mkim0710/d0fe92b382f2bba4384d4d8780f78b31 to your computer and use it in GitHub Desktop.
Save mkim0710/d0fe92b382f2bba4384d4d8780f78b31 to your computer and use it in GitHub Desktop.
Download ZIP
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit from .r
Raw
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit from .r
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate(
Q3138rowMeans = rowMeans(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T)
, Q3138rowSums = rowSums(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T)
, Q4044rowMeans = rowMeans(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T)
, Q4044rowSums = rowSums(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T)
) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138"), Q40, Q41, Q42, Q43, Q44, matches("Q4044")) %>%
# > ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate(
# + Q3138rowMeans = rowMeans(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T)
# + , Q3138rowSums = rowSums(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T)
# + , Q4044rowMeans = rowMeans(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T)
# + , Q4044rowSums = rowSums(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T)
# + ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, Q3138rowMeans, Q40, Q41, Q42, Q43, Q44, Q4044rowMeans)
# # A tibble: 191 x 15
# Q31 Q32 Q33 Q34 Q35 Q36 Q37 Q38 Q3138rowMeans Q40 Q41 Q42 Q43 Q44 Q4044rowMeans
# <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl+lbl> <dbl>
# 1 NA NA NA NA NA NA NA NA NaN NA NA NA NA NA NaN
# 2 1 2 3 3 4 4 2 3 2.75 4 4 5 4 3 4
# 3 3 3 2 2 3 4 3 3 2.88 2 3 1 3 3 2.4
# 4 NA NA NA NA NA NA NA NA NaN NA NA NA NA NA NaN
# 5 3 1 4 1 3 5 3 2 2.75 4 4 2 4 5 3.8
# 6 3 3 2 2 4 4 2 2 2.75 4 4 4 4 5 4.2
# 7 1 3 3 2 3 5 2 2 2.62 3 3 4 3 2 3
# 8 NA NA NA NA NA NA NA NA NaN NA NA NA NA NA NaN
# 9 2 2 2 1 2 3 3 2 2.12 3 3 3 3 4 3.2
# 10 2 4 1 1 1 1 3 1 1.75 5 4 2 4 5 4
# # ... with 181 more rows
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate(
Q3138rowMeans = rowMeans(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T)
, Q3138rowMeans_gt2 = rowMeans(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T) > 2
, Q3138rowMeans_gt2.5 = rowMeans(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T) > 2.5
, Q3138rowSums = rowSums(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T)
, Q3138gt20 = rowSums(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T) > 20
, Q4044rowMeans_gt3 = rowMeans(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T) > 3
, Q4044rowMeans_gt3.6 = rowMeans(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T) > 3.6
, Q4044rowMeans = rowMeans(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T)
, Q4044rowSums = rowSums(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T)
, Q4044gt18 = rowSums(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T) > 18
) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138"), Q40, Q41, Q42, Q43, Q44, matches("Q4044")) %>%
na.omit %>% summary
# > ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate(
# + Q3138rowMeans = rowMeans(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T)
# + , Q3138rowMeans_gt2 = rowMeans(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T) > 2
# + , Q3138rowMeans_gt2.5 = rowMeans(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T) > 2.5
# + , Q3138rowSums = rowSums(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T)
# + , Q3138gt20 = rowSums(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T) > 20
# + , Q4044rowMeans_gt3 = rowMeans(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T) > 3
# + , Q4044rowMeans_gt3.6 = rowMeans(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T) > 3.6
# + , Q4044rowMeans = rowMeans(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T)
# + , Q4044rowSums = rowSums(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T)
# + , Q4044gt18 = rowSums(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T) > 18
# + ) %>% select(Q31, Q32, Q33, Q34, Q35, Q36, Q37, Q38, matches("Q3138"), Q40, Q41, Q42, Q43, Q44, matches("Q4044")) %>%
# + na.omit %>% summary
# Q31 Q32 Q33 Q34 Q35 Q36 Q37 Q38 Q3138rowMeans Q3138rowMeans_gt2 Q3138rowMeans_gt2.5 Q3138rowSums Q3138gt20
# Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.00 Min. :1.625 Mode :logical Mode :logical Min. :13.00 Mode :logical
# 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:1.000 1st Qu.:2.000 1st Qu.:3.000 1st Qu.:2.000 1st Qu.:1.00 1st Qu.:2.250 FALSE:15 FALSE:77 1st Qu.:18.00 FALSE:77
# Median :3.000 Median :3.000 Median :3.000 Median :1.000 Median :3.000 Median :4.000 Median :2.000 Median :2.00 Median :2.500 TRUE :138 TRUE :76 Median :20.00 TRUE :76
# Mean :2.392 Mean :2.824 Mean :2.732 Mean :1.627 Mean :3.092 Mean :3.359 Mean :2.438 Mean :1.81 Mean :2.534 Mean :20.27
# 3rd Qu.:3.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:2.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:3.000 3rd Qu.:2.00 3rd Qu.:2.750 3rd Qu.:22.00
# Max. :4.000 Max. :5.000 Max. :5.000 Max. :4.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.00 Max. :3.375 Max. :27.00
# Q40 Q41 Q42 Q43 Q44 Q4044rowMeans_gt3 Q4044rowMeans_gt3.6 Q4044rowMeans Q4044rowSums Q4044gt18
# Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Mode :logical Mode :logical Min. :1.000 Min. : 5.00 Mode :logical
# 1st Qu.:3.000 1st Qu.:3.000 1st Qu.:2.000 1st Qu.:3.000 1st Qu.:3.000 FALSE:51 FALSE:80 1st Qu.:2.800 1st Qu.:14.00 FALSE:80
# Median :4.000 Median :4.000 Median :3.000 Median :4.000 Median :4.000 TRUE :102 TRUE :73 Median :3.600 Median :18.00 TRUE :73
# Mean :3.438 Mean :3.556 Mean :3.026 Mean :3.516 Mean :3.673 Mean :3.442 Mean :17.21
# 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:20.00
# Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000 Max. :25.00
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit =
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34 %>% mutate(
Q3138rowMeans = rowMeans(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T)
, Q3138rowMeans_gt2 = rowMeans(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T) > 2
# , Q3138rowMeans_gt2_5 = rowMeans(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T) > 2.5
, Q3138rowSums = rowSums(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T)
, Q3138gt20 = rowSums(.[, c("Q31", "Q32", "Q33", "Q34", "Q35", "Q36", "Q37", "Q38")], na.rm = T) > 20
, Q4044rowMeans_gt3 = rowMeans(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T) > 3
# , Q4044rowMeans_gt3_6 = rowMeans(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T) > 3.6
, Q4044rowMeans = rowMeans(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T)
, Q4044rowSums = rowSums(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T)
, Q4044gt18 = rowSums(.[, c("Q40", "Q41", "Q42", "Q43", "Q44")], na.rm = T) > 18
) %>% na.omit
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit =
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit %>% mutate(
Q1_squared = Q1 ^ 2
, Q1_cubic = Q1 ^ 3
, Q1_gt32 = Q1 > 32
, Q1_gt30 = Q1 > 30
)
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit %>%
select(matches("Q1")) %>% summary
# > ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit %>%
# + select(matches("Q1")) %>% summary
# Q1 Q10 Q11 Q13 Q1_squared Q1_cubic Q1_gt32 Q1_gt30
# Min. :21.00 Min. :1.000 Min. :1.000 Min. :1.000 Min. : 441 Min. : 9261 Mode :logical Mode :logical
# 1st Qu.:30.00 1st Qu.:2.000 1st Qu.:3.000 1st Qu.:2.000 1st Qu.: 900 1st Qu.: 27000 FALSE:78 FALSE:47
# Median :32.00 Median :3.000 Median :4.000 Median :3.000 Median :1024 Median : 32768 TRUE :74 TRUE :105
# Mean :34.93 Mean :2.625 Mean :3.776 Mean :2.921 Mean :1312 Mean : 53528
# 3rd Qu.:37.00 3rd Qu.:3.000 3rd Qu.:5.000 3rd Qu.:4.000 3rd Qu.:1369 3rd Qu.: 50653
# Max. :66.00 Max. :5.000 Max. :5.000 Max. :5.000 Max. :4356 Max. :287496
#@ more dichotomous variables ======
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit =
ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit %>% mutate(
Q2is1 = Q2 == 1
, Q2is2 = Q2 == 2
, Q2is1 = Q2 == 1
, Q2is2 = Q2 == 2
, Q3is1 = Q3 == 1
, Q3is2 = Q3 == 2
, Q3is3 = Q3 == 3
, Q3is4 = Q3 == 4
, Q3is5 = Q3 == 5
, Q3is6 = Q3 == 6
, Q3is7 = Q3 == 7
, Q4is1 = Q4 == 1
, Q4is2 = Q4 == 2
, Q4is3 = Q4 == 3
, Q4is4 = Q4 == 4
, Q4is5 = Q4 == 5
, Q4is6 = Q4 == 6
, Q4is7 = Q4 == 7
, Q5is1 = Q5 == 1
, Q5is2 = Q5 == 2
, Q7is1 = Q7 == 1
, Q7is2 = Q7 == 2
, Q7is3 = Q7 == 3
, Q7is4 = Q7 == 4
, Q7is5 = Q7 == 5
, Q7is6 = Q7 == 6
, Q7is7 = Q7 == 7
, Q8is1 = Q8 == 1
, Q8is2 = Q8 == 2
, Q6is1 = Q6 == 1
, Q6is2 = Q6 == 2
, Q6is3 = Q6 == 3
, Q6is4 = Q6 == 4
, Q6is5 = Q6 == 5
, Q6is6 = Q6 == 6
, Q6is7 = Q6 == 7
)
#@ attributes(ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit[[i]]) = attributes(ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34[[i]]) =====
for (i in names(ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34)) {
attributes(ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34.rowMeans.na.omit[[i]]) = attributes(ID_207_Group_Project_Version_2_Vertical_July_24_2018_07_34[[i]])
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment