2020 Census

B02001_001 Estimate!!Total B02001_002 Estimate!!Total:!!White alone
B02018_022 Estimate!!Total Groups Tallied:!!Vietnamese
B02018_007 Estimate!!Total Groups Tallied:!!Chinese
B02018_008 Estimate!!Total Groups Tallied:!!Filipino
B02018_012 Estimate!!Total Groups Tallied:!!Korean
B02018_020 Estimate!!Total Groups Tallied:!!Taiwanese
B02018_002 Estimate!!Total Groups Tallied:!!Asian Indian

ca.tracts <- get_acs(geography = "place", 
              year = 2020, 
              variables = c(total = "B02001_001", Taiwanese="B02018_020",
                            Viet = "B02018_022", Chinese = "B02018_007", Indian="B02018_002",
                            Filipino = "B02018_008", Korean = "B02018_012"),
              state = "CA",
              survey = "acs5",
              output = "wide",
              geometry = F)
## Getting data from the 2016-2020 5-year ACS
ca.tracts1 <- filter(ca.tracts,totalE>10000) %>% 
  rename_with(~ sub("E$", "", .x), everything()) 

ca <- ca.tracts1[str_detect(ca.tracts1$NAM, "city"), ]  # Extract matching rows with str_detect



ca2 <- ca %>% select(c(NAM,total, Viet,Taiwanese,Indian ,Chinese, Filipino, Korean))  
ca2$NAM <- gsub(", California","",ca2$NAM)
colnames(ca2)[1] <- "City"

Top 20 cities
Chinese populations in California

c <- arrange(ca2,desc(Chinese)) %>% head(n=20)
select(c,c(City,Chinese)) %>% kbl(caption = "Top Chinese Populations by city") %>% kable_styling(c("bordered","centered"), full_width = F)
Top Chinese Populations by city
City Chinese
San Francisco city 201763
San Jose city 98015
Los Angeles city 97779
San Diego city 57013
Irvine city 43785
Fremont city 43122
Oakland city 37890
Alhambra city 32107
Monterey Park city 29412
Sacramento city 28353
Sunnyvale city 28081
Daly City city 24520
Rosemead city 23829
Arcadia city 22650
El Monte city 21655
San Gabriel city 18494
Diamond Bar city 18142
Cupertino city 17219
Temple City city 16879
Santa Clara city 16727

top 20 cities
Vietnamese populations in California

c <- arrange(ca2,desc(Viet)) %>% head(n=20)
select(c,c(City,Viet)) %>% kbl(caption = "Top Vietnamese Populations by city") %>% kable_styling(c("bordered","centered"), full_width = F)
Top Vietnamese Populations by city
City Viet
San Jose city 125417
Garden Grove city 58786
San Diego city 41827
Westminster city 41532
Los Angeles city 31277
Santa Ana city 27799
San Francisco city 21909
Anaheim city 20272
Fountain Valley city 13878
Irvine city 12694
El Monte city 11466
Huntington Beach city 11359
Milpitas city 10602
Elk Grove city 9887
Rosemead city 9748
Oakland city 9615
Sacramento city 9182
Stanton city 7653
Stockton city 7181
Fremont city 6955

Top 20 cities
Indian populations in California

c <- arrange(ca2,desc(Indian)) %>% head(n=20)
select(c,c(City,Indian)) %>% kbl(caption = "Top indian Populations by city") %>% kable_styling(c("bordered","centered"), full_width = F)
Top indian Populations by city
City Indian
San Jose city 74363
Fremont city 66852
Los Angeles city 48032
San Diego city 33192
Sunnyvale city 30669
San Francisco city 26640
Santa Clara city 23041
Irvine city 18870
San Ramon city 17855
Cupertino city 17735
Fresno city 17001
Dublin city 16432
Sacramento city 15639
Milpitas city 15359
Pleasanton city 14373
Union City city 10843
Bakersfield city 10328
Yuba City city 10112
Hayward city 8246
Torrance city 7722

Top 20 cities
Filipino populations in California

c <- arrange(ca2,desc(Filipino)) %>% head(n=20)
select(c,c(City,Filipino)) %>% kbl(caption = "Top Filipino Populations by city") %>% kable_styling(c("bordered","centered"), full_width = F)
Top Filipino Populations by city
City Filipino
Los Angeles city 154035
San Diego city 96745
San Jose city 68560
San Francisco city 45705
Chula Vista city 37558
Daly City city 36189
Stockton city 29133
Vallejo city 28442
Long Beach city 24962
Carson city 21172
Hayward city 20244
Sacramento city 20067
Elk Grove city 18433
Fremont city 17985
Anaheim city 17869
South San Francisco city 16688
Union City city 15624
Fairfield city 14007
Glendale city 13424
Milpitas city 11572