c("[American Indian/Alaska Native] & [European]", "[White/ European American]", "[European] & [White/ European American]", "[Latino/Hispanic] & [Mexican]", "[White/ European American]", "[White/ European American]", "[Latino/Hispanic]", NA, "[European]", "[White/ European American]", "[Other]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[African]", "[Latino/Hispanic] & [South American]", "[Black or African American]", "[Black or African American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[American Indian/Alaska Native] & [White/ European American]", "[White/ European American]", "[Other]", "[White/ European American] & [South American]", "[White/ European American]", "[Korean] & [White/ European American]", "[White/ European American]", "[European]", "[European]", "[White/ European American]", "[Vietnamese]", "[Filipino]", "[White/ European American]", "[Filipino] & [Chinese]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[Mexican]", "[European] & [White/ European American]", "[White/ European American]", "[Mexican]", "[White/ European American]", "[Filipino] & [White/ European American]", "[White/ European American]", "[Asian or Asian American]", "[White/ European American]", "[Middle Eastern/North African]", "[Other Asian]", "[White/ European American]", "[American Indian/Alaska Native]", "[Black or African American]", "[European]", "[White/ European American]", "[White/ European American]", "[Other Asian]", "[White/ European American]", "[White/ European American]", "[Black or African American] & [Caribbean]", "[White/ European American]", "[European]", "[White/ European American]", "[European] & [White/ European American]", "[Other Pacific Islander]", "[Black or African American] & [White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[Other]", "[White/ European American]", "[American Indian/Alaska Native]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[Black or African American]", "[White/ European American]", "[Other Pacific Islander] & [Ukrainian] & [White/ European American]", "[White/ European American]", NA, "[White/ European American]", "[White/ European American]", "[White/ European American]", "[Other]", "[White/ European American]", "[European] & [White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American]", "[White/ European American] & [Latino/Hispanic]")
Sorry, for some reasons my tibble didn't work for datapasta. I use this way to reprex my data.
There is another column has a list of languages that cleaned from this reprex, like this:
tibble::tribble(
~ethnicity, ~n,
"African", 44L,
"American Indian/Alaska Native", 86L,
"Asian or Asian American", 166L,
"Black or African American", 123L,
"Caribbean", 12L,
"Central American", 23L,
"Chinese", 62L,
"European", 196L,
"Filipino", 107L,
"Japanese", 41L,
"Korean", 59L,
"Latino/Hispanic", 182L,
"Mexican", 147L,
"Middle Eastern/North African", 40L,
"Native Hawaiian", 11L,
"Other", 131L,
"Other Asian", 52L,
"Other Pacific Islander", 33L,
"Russian", 36L,
"Samoan", 6L,
"South American", 30L,
"South East Asian", 28L,
"Ukrainian", 33L,
"Vietnamese", 93L,
"White/ European American", 1618L,
NA, 148L
)
clean_reprex <- tibble::tribble(
~ethnicity, ~n,
"African", 44L,
"American Indian/Alaska Native", 86L,
"Asian or Asian American", 166L,
"Black or African American", 123L,
"Caribbean", 12L,
"Central American", 23L,
"Chinese", 62L,
"European", 196L,
"Filipino", 107L,
"Japanese", 41L,
"Korean", 59L,
"Latino/Hispanic", 182L,
"Mexican", 147L,
"Middle Eastern/North African", 40L,
"Native Hawaiian", 11L,
"Other", 131L,
"Other Asian", 52L,
"Other Pacific Islander", 33L,
"Russian", 36L,
"Samoan", 6L,
"South American", 30L,
"South East Asian", 28L,
"Ukrainian", 33L,
"Vietnamese", 93L,
"White/ European American", 1618L,
NA, 148L
)
My goal is to compare reprex and clean-reprex, and then give the frequency based on
how many languages each reprex's row contains.
Please teach me.
Thanks