![]() Geom_text(aes( sex, mean_dig_span, label =paste( "mean= ",round( mean_dig_span, 2), ",sd= ",round( sd_dig_span, 2))), position =position_dodge( width = 0.9), vjust = - 0.25) Scale_x_discrete( labels = setNames(c( "Male ", "Female "), c( 0, 1))) + Geom_bar(aes( sex, mean_dig_span, fill = sex), stat = "identity ") + Geom_text(aes( educat, mean_dig_span, label =paste( "mean= ",round( mean_dig_span, 2), ",sd= ",round( sd_dig_span, 2))), position =position_dodge( width = 0.9), vjust = - 0.25) Scale_x_discrete( labels = setNames(c( "School-High School ", "Undergraduate ", "Graduate-Post Graduate "), c( 1, 2, 3))) + Geom_bar(aes( educat, mean_dig_span, fill = educat), stat = "identity ") + Mutate( educat = as.factor(ifelse( educat % Geom_text(aes( age, mean_dig_span, label =paste( "mean= ",round( mean_dig_span, 2), ",sd= ",round( sd_dig_span, 2))), position =position_dodge( width = 0.9), vjust = - 0.25) Geom_bar(aes( age, mean_dig_span, fill = age), stat = "identity ") + Summarise( mean_dig_span = mean( dig_span), sd_dig_span = sd( dig_span)) % >% Geom_bar(aes( dig_span, fill = dig_span)) +Īnnotate( "text ", x = Inf, y = Inf, label = paste( "mean= ",round( t1 $ Mean, 2), ",sd= ",round( t1 $ Std, 2)), hjust = 1, vjust = 1) + Mutate( dig_span = as.factor( dig_span)) % >% Mutate(across(where( is.numeric), ~round(. Summarise( 'Mean ' = mean( dig_span), 'Std ' = sd( dig_span)) % >% Summarise( dig_span = max(parse_number( rounds)) + 1) User_digit_click_time_data %įilter( !( ID %in% sym_diff( user_data_temp $ ID, user_dig_seq_temp $ ID)))įilter( !( ID %in% setdiff( user_data_temp $ ID, user_dig_seq_temp $ ID)))įilter( !( ID %in% sym_diff( user_data_temp $ ID, user_restart_wrong_temp $ ID)))įilter( !( ID %in% sym_diff( user_data_temp $ ID, user_digit_click_time_temp $ ID))) Gather(colnames( user_dig_seq), key = "rounds ", value = "dig_seq ") % >% #gs4_create(name = "user_restart_wrong", sheets = "main") #gs4_create(name = "user_digit_click_time", sheets = "main") #gs4_create(name = "user_dig_seq", sheets = "main") #gs4_create(name = "user_data", sheets = "main") Gargle_oauth_cache = "DIGIT SPAN/.secrets " # specify auth tokens should be stored in a hidden directory ".secrets" # whenever there is one account token found, use the cached token ![]()
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |