Arrange function in plyr - r

As I was doing the final assignment of coursera R programming course, my arrange function didnt actually worked well and I am fairly confused
as I have extract the state by split function
my_data<- outcome[,c(2,7,23)]
names(my_data)<- c("hospital","state","heart_attack","heart_failure","pneumonia")
my_data1<-lapply(split(my_data,my_data$state), data.frame)
my_data2<-arrange(my_data1$stateName, penumonia)
> arrange(my_data1$AK, pneumonia)
hospital state pneumonia
1 PROVIDENCE ALASKA MEDICAL CENTER AK 10.5
2 PEACEHEALTH KETCHIKAN MEDICAL CENTER AK 11.3
3 SITKA COMMUNITY HOSPITAL AK 11.5
4 BARTLETT REGIONAL HOSPITAL AK 11.6
5 NORTON SOUND REGIONAL HOSPITAL AK 11.6
6 PROVIDENCE KODIAK ISLAND MEDICAL CTR AK 12.0
7 MAT-SU REGIONAL MEDICAL CENTER AK 12.1
8 SOUTH PENINSULA HOSPITAL AK 12.2
9 ALASKA REGIONAL HOSPITAL AK 12.5
10 FAIRBANKS MEMORIAL HOSPITAL AK 13.4
11 CENTRAL PENINSULA GENERAL HOSPITAL AK 13.8
12 MT EDGECUMBE HOSPITAL AK 14.2
13 ALASKA NATIVE MEDICAL CENTER AK 15.5
14 YUKON KUSKOKWIM DELTA REG HOSPITAL AK 9.7
which obviously
14 YUKON KUSKOKWIM DELTA REG HOSPITAL AK 9.7
should be at the top.
Same result after I transform the column class to numeric.
So I have transformed the pneumonia column with
> class(my_data2$pneumonia)
[1] "character"
> my_data2$pneumonia <-as.numeric(my_data2$pneumonia)
Warning message:
NAs introduced by coercion
> class(my_data2$pneumonia)
[1] "numeric
> arrange(my_data2,pneumonia)
hospital state pneumonia
1 YUKON KUSKOKWIM DELTA REG HOSPITAL AK 9.7
2 PROVIDENCE ALASKA MEDICAL CENTER AK 10.5
3 PEACEHEALTH KETCHIKAN MEDICAL CENTER AK 11.3
4 SITKA COMMUNITY HOSPITAL AK 11.5
5 BARTLETT REGIONAL HOSPITAL AK 11.6
6 NORTON SOUND REGIONAL HOSPITAL AK 11.6
7 PROVIDENCE KODIAK ISLAND MEDICAL CTR AK 12.0
8 MAT-SU REGIONAL MEDICAL CENTER AK 12.1
9 SOUTH PENINSULA HOSPITAL AK 12.2
10 ALASKA REGIONAL HOSPITAL AK 12.5
11 FAIRBANKS MEMORIAL HOSPITAL AK 13.4
12 CENTRAL PENINSULA GENERAL HOSPITAL AK 13.8
13 MT EDGECUMBE HOSPITAL AK 14.2
14 ALASKA NATIVE MEDICAL CENTER AK 15.5
15 PROVIDENCE VALDEZ MEDICAL CENTER AK NA
16 PROVIDENCE SEWARD HOSPITAL AK NA
17 CORDOVA COMMUNITY MEDICAL CENTER AK NA
and the problem solved, thanks for comment

Related

merging dataframes and repeating values (instead of NA)

I am attempting to create an administrative map that shows the number of students per county in California that qualify for reduced price lunch. I have two dataframes. ca_counties and mealpcnty as follows:
head(ca_counties)
long lat group order state county
6965 -121.4785 37.48290 157 6965 california alameda
6966 -121.5129 37.48290 157 6966 california alameda
6967 -121.8853 37.48290 157 6967 california alameda
6968 -121.8968 37.46571 157 6968 california alameda
6969 -121.9254 37.45998 157 6969 california alameda
6970 -121.9483 37.47717 157 6970 california alameda
head(mealpcnty)
county meal_stu long lat group
1 Alameda 3.97956 -122.0228 37.70349 157
2 Butte 5137.23140 -121.5874 39.66873 160
3 Calaveras 309.62441 -120.4988 38.30223 161
4 Contra Costa 2410.72933 -121.9598 38.02434 163
5 El Dorado 2699.99971 -120.4558 38.80930 165
6 Fresno 4105.86829 -119.6279 36.84119 166
What I would like to do is merge the mealpcnty df column meal_stu into the ca_counties df by "county" variable and repeat this number by the amount of times that county appears in the ca_county df. I have had no success. I have tried every version of merge() and still get a column full of NA values for meal_stu. I need the values to color in my map.
So, instead of the following
head(Meal.df)
county long lat group order state meal_stu
1 alameda -121.4785 37.48290 157 6965 california NA
2 alameda -121.5129 37.48290 157 6966 california NA
3 alameda -121.8853 37.48290 157 6967 california NA
4 alameda -121.8968 37.46571 157 6968 california NA
5 alameda -121.9254 37.45998 157 6969 california NA
6 alameda -121.9483 37.47717 157 6970 california NA
I would like to see the following: where the number of meal_stu associated with each county is repeated.
head(Meal.df)
county long lat group order state meal_stu
1 alameda -121.4785 37.48290 157 6965 california 3.97956
2 alameda -121.5129 37.48290 157 6966 california 3.97956
3 alameda -121.8853 37.48290 157 6967 california 3.97956
4 alameda -121.8968 37.46571 157 6968 california 3.97956
5 alameda -121.9254 37.45998 157 6969 california 3.97956
6 alameda -121.9483 37.47717 157 6970 california 3.97956

Why when I join these two geographic datasets together do some values get filled with NAs?

I'm trying to join two datasets together- a dataset from Natural Earth subset to contain only countries in Europe (europe_map) and a list of locations in Europe (europe_places).
Here is the headers of the datasets:
europe_places
Simple feature collection with 23 features and 4 fields
geometry type: POINT
dimension: XY
bbox: xmin: -9.1393 ymin: 38.7223 xmax: 24.1052 ymax: 58.97
geographic CRS: WGS 84
First 10 features:
Location Year Country Continent geometry
1 Paris 2008 France Europe POINT (2.3522 48.8566)
2 Stavanger 2009 Norway Europe POINT (5.7331 58.97)
3 Paris 2009 France Europe POINT (2.3522 48.8566)
4 Berlin 2010 Germany Europe POINT (13.405 52.52)
5 Prague 2011 Czechia Europe POINT (14.4378 50.0755)
6 Piancavallo 2012 Italy Europe POINT (12.5166 46.10768)
7 Budapest 2012 Hungary Europe POINT (19.0402 47.4979)
8 Aprica 2013 Italy Europe POINT (10.15177 46.15486)
9 Vienna 2014 Austria Europe POINT (16.3738 48.2082)
10 Folgaria 2014 Italy Europe POINT (11.17205 45.9162)
europe_map
Simple feature collection with 6 features and 94 fields
geometry type: GEOMETRY
dimension: XY
bbox: xmin: -8.144824 ymin: 41.89756 xmax: 40.12832 ymax: 60.83188
geographic CRS: WGS 84
featurecla scalerank LABELRANK Country SOV_A3 ADM0_DIF LEVEL TYPE
5 Admin-0 country 6 6 Vatican VAT 0 2 Sovereign country
28 Admin-0 country 4 6 United Kingdom GB1 1 2 Country
29 Admin-0 country 4 6 United Kingdom GB1 1 2 Country
30 Admin-0 country 3 6 United Kingdom GB1 1 2 Country
31 Admin-0 country 1 2 United Kingdom GB1 1 2 Country
33 Admin-0 country 1 3 Ukraine UKR 0 2 Sovereign country
ADMIN ADM0_A3 GEOU_DIF GEOUNIT GU_A3 SU_DIF SUBUNIT SU_A3 BRK_DIFF
5 Vatican VAT 0 Vatican VAT 0 Vatican VAT 0
28 Jersey JEY 0 Jersey JEY 0 Jersey JEY 0
29 Guernsey GGY 0 Guernsey GGY 0 Guernsey GGY 0
30 Isle of Man IMN 0 Isle of Man IMN 0 Isle of Man IMN 0
31 United Kingdom GBR 0 United Kingdom GBR 0 United Kingdom GBR 0
33 Ukraine UKR 0 Ukraine UKR 0 Ukraine UKR 0
NAME NAME_LONG BRK_A3 BRK_NAME BRK_GROUP ABBREV POSTAL
5 Vatican Vatican VAT Vatican <NA> Vat. V
28 Jersey Jersey JEY Jersey Channel Islands Jey. JE
29 Guernsey Guernsey GGY Guernsey Channel Islands Guern. GG
30 Isle of Man Isle of Man IMN Isle of Man <NA> IoMan IM
31 United Kingdom United Kingdom GBR United Kingdom <NA> U.K. GB
33 Ukraine Ukraine UKR Ukraine <NA> Ukr. UA
FORMAL_EN FORMAL_FR NAME_CIAWF
5 State of the Vatican City <NA> Holy See (Vatican City)
28 Bailiwick of Jersey <NA> Jersey
29 Bailiwick of Guernsey <NA> Guernsey
30 <NA> <NA> Isle of Man
31 United Kingdom of Great Britain and Northern Ireland <NA> United Kingdom
33 Ukraine <NA> Ukraine
NOTE_ADM0 NOTE_BRK NAME_SORT NAME_ALT MAPCOLOR7 MAPCOLOR8 MAPCOLOR9
5 <NA> <NA> Vatican (Holy See) Holy See 1 3 4
28 U.K. crown dependency <NA> Jersey <NA> 6 6 6
29 U.K. crown dependency <NA> Guernsey <NA> 6 6 6
30 U.K. crown dependency <NA> Isle of Man <NA> 6 6 6
31 <NA> <NA> United Kingdom <NA> 6 6 6
33 <NA> <NA> Ukraine <NA> 5 1 6
MAPCOLOR13 POP_EST POP_RANK GDP_MD_EST POP_YEAR LASTCENSUS GDP_YEAR
5 2 1000 3 0 2015 NA 0
28 3 98840 8 5080 2017 2001 2015
29 3 66502 8 3465 2017 2001 2015
30 3 88815 8 7428 2017 2006 2014
31 3 64769452 16 2788000 2017 2011 2016
33 3 44033874 15 352600 2017 2001 2016
ECONOMY INCOME_GRP WIKIPEDIA FIPS_10_ ISO_A2 ISO_A3
5 2. Developed region: nonG7 2. High income: nonOECD 0 VT VA VAT
28 2. Developed region: nonG7 2. High income: nonOECD NA JE JE JEY
29 2. Developed region: nonG7 2. High income: nonOECD NA GK GG GGY
30 2. Developed region: nonG7 2. High income: nonOECD NA IM IM IMN
31 1. Developed region: G7 1. High income: OECD NA UK GB GBR
33 6. Developing region 4. Lower middle income NA UP UA UKR
ISO_A3_EH ISO_N3 UN_A3 WB_A2 WB_A3 WOE_ID WOE_ID_EH
5 VAT 336 336 <NA> <NA> 23424986 23424986
28 JEY 832 832 JG CHI 23424857 23424857
29 GGY 831 831 JG CHI 23424827 23424827
30 IMN 833 833 IM IMY 23424847 23424847
31 GBR 826 826 GB GBR -90 23424975
33 UKR 804 804 UA UKR 23424976 23424976
WOE_NOTE
5 Exact WOE match as country
28 Exact WOE match as country
29 Exact WOE match as country
30 Exact WOE match as country
31 Eh ID includes Channel Islands and Isle of Man. UK constituent countries of England (24554868), Wales (12578049), Scotland (12578048), and Northern Ireland (20070563).
33 Exact WOE match as country
ADM0_A3_IS ADM0_A3_US ADM0_A3_UN ADM0_A3_WB CONTINENT REGION_UN SUBREGION
5 VAT VAT NA NA Europe Europe Southern Europe
28 JEY JEY NA NA Europe Europe Northern Europe
29 GGY GGY NA NA Europe Europe Northern Europe
30 IMN IMN NA NA Europe Europe Northern Europe
31 GBR GBR NA NA Europe Europe Northern Europe
33 UKR UKR NA NA Europe Europe Eastern Europe
REGION_WB NAME_LEN LONG_LEN ABBREV_LEN TINY HOMEPART MIN_ZOOM MIN_LABEL
5 Europe & Central Asia 7 7 4 4 1 0 5.0
28 Europe & Central Asia 6 6 4 NA NA 0 5.0
29 Europe & Central Asia 8 8 6 NA NA 0 5.0
30 Europe & Central Asia 11 11 5 NA NA 0 5.0
31 Europe & Central Asia 14 14 4 NA 1 0 1.7
33 Europe & Central Asia 7 7 4 NA 1 0 3.0
MAX_LABEL NE_ID WIKIDATAID NAME_AR NAME_BN NAME_DE
5 10.0 1159321407 Q237 الفاتيكان ভ্যাটিকান সিটি Vatikanstadt
28 10.0 1159320725 Q785 جيرزي জার্সি Jersey
29 10.0 1159320715 Q25230 غيرنزي <NA> Guernsey
30 10.0 1159320721 Q9676 جزيرة مان আইল অব ম্যান Isle of Man
31 6.7 1159320713 Q145 المملكة المتحدة যুক্তরাজ্য Vereinigtes Königreich
33 7.0 1159321345 Q212 أوكرانيا ইউক্রেন Ukraine
NAME_EN NAME_ES NAME_FR NAME_EL NAME_HI
5 Vatican City Ciudad del Vaticano Vatican Βατικανό वैटिकन नगर
28 Jersey Jersey Jersey Τζέρσεϊ जर्सी
29 Guernsey Guernsey Guernesey Γκέρνσεϊ ग्वेर्नसे
30 Isle of Man Isla de Man île de Man Νήσος του Μαν मनुष्य का टापू
31 United Kingdom Reino Unido Royaume-Uni Ηνωμένο Βασίλειο यूनाइटेड किंगडम
33 Ukraine Ucrania Ukraine Ουκρανία युक्रेन
NAME_HU NAME_ID NAME_IT NAME_JA NAME_KO
5 Vatikán Vatikan Città del Vaticano バチカン 바티칸 시국
28 Jersey Jersey Baliato di Jersey ジャージー 저지 섬
29 Guernsey Bailiffség Guernsey Guernsey ガーンジー 건지 섬
30 Man Pulau Man Isola di Man マン島 맨 섬
31 Egyesült Királyság Britania Raya Regno Unito イギリス 영국
33 Ukrajna Ukraina Ucraina ウクライナ 우크라이나
NAME_NL NAME_PL NAME_PT NAME_RU NAME_SV
5 Vaticaanstad Watykan Vaticano Ватикан Vatikanstaten
28 Jersey Jersey Jersey Джерси Jersey
29 Guernsey Guernsey Guernsey Гернси Guernsey
30 Man Wyspa Man Ilha de Man остров Мэн Isle of Man
31 Verenigd Koninkrijk Wielka Brytania Reino Unido Великобритания Storbritannien
33 Oekraïne Ukraina Ucrânia Украина Ukraina
NAME_TR NAME_VI NAME_ZH
5 Vatikan Thành Vatican 梵蒂冈
28 Jersey Jersey 澤西島
29 Guernsey Guernsey 根西岛
30 Man Adası Đảo Man 马恩岛
31 Birleşik Krallık Vương quốc Liên hiệp Anh và Bắc Ireland 英国
33 Ukrayna Ukraina 乌克兰
geometry
5 POLYGON ((12.43916 41.89839...
28 POLYGON ((-2.018652 49.2312...
29 POLYGON ((-2.512305 49.4945...
30 POLYGON ((-4.412061 54.1853...
31 MULTIPOLYGON (((-2.667676 5...
33 MULTIPOLYGON (((38.21436 47...
I used the following code to join the datasets together:
europe.map1<-st_join(europe_places, europe_map, by="Country")
But when I did the entries for Venice, Lisbon and Copenhagen had NA values despite the entry for Country containing values that matched those in the europe_map dataset.
Picking up on the comments above, you have not specified the spatial join correctly. I think this is what you are looking for:
europe.map1<- st_join(europe_places, europe_map,
join=st_within, # always best to specify the method
left=TRUE)
This should work for you. That said, you may want to switch the order of europe_places and europe_map. I am not sure about your goal. You can find more information about the different types of spatial joins within the sf package here.

How to make a stratified random sample with panel data in Rstudio?

I want to do a stratified random sample of panel data. How to do it?
Example:
the most similar situation is the dataset Guns, included in the AER package of "R". it has 51 states, 13 variables over 23 years. Here 2 situations:
how to make a stratified random sample of 40 states?
how to make just a random sample of size=40 states?
I tried with this:
set.seed(2)
samp1=strata(Guns, ("levels(Guns$state)"), size=c(40), method = "srswor")
but an error is returned:
Error in strata(Guns, (levels(Guns$state)), size = c(40), method = "srswor") :
the names of the strata are wrong
THANKS!
For random sample do these simple steps
set.seed(2)
x <- sample(unique(Guns$state), 40)
sample <- Guns[Guns$state %in% x,]
> nrow(Guns)
[1] 1173
> nrow(sample)
[1] 920
920/1173 rows selected
check number of states in sample
> length(unique(sample$state))
[1] 40
For stratified sampling within this sample of 40 States say 50% selection per State, follow this code
library(tidyverse)
set.seed(2)
str_sample <- sample %>% group_by(state) %>%
sample_frac(size = 0.5)
If you'll see 480 rows are selected. Check each stratum size
> table(sample$state)
Alabama Alaska Arizona Arkansas California Colorado Connecticut
23 23 23 0 0 23 0
Delaware District of Columbia Florida Georgia Hawaii Idaho Illinois
23 23 0 23 23 23 23
Indiana Iowa Kansas Kentucky Louisiana Maine Maryland
23 23 23 23 23 23 23
Massachusetts Michigan Minnesota Mississippi Missouri Montana Nebraska
23 23 23 23 0 23 0
Nevada New Hampshire New Jersey New Mexico New York North Carolina North Dakota
23 23 0 23 23 23 23
Ohio Oklahoma Oregon Pennsylvania Rhode Island South Carolina South Dakota
23 23 23 23 0 23 0
Tennessee Texas Utah Vermont Virginia Washington West Virginia
0 23 23 23 23 23 23
Wisconsin Wyoming
0 23
> table(str_sample$state)
Alabama Alaska Arizona Arkansas California Colorado Connecticut
12 12 12 0 0 12 0
Delaware District of Columbia Florida Georgia Hawaii Idaho Illinois
12 12 0 12 12 12 12
Indiana Iowa Kansas Kentucky Louisiana Maine Maryland
12 12 12 12 12 12 12
Massachusetts Michigan Minnesota Mississippi Missouri Montana Nebraska
12 12 12 12 0 12 0
Nevada New Hampshire New Jersey New Mexico New York North Carolina North Dakota
12 12 0 12 12 12 12
Ohio Oklahoma Oregon Pennsylvania Rhode Island South Carolina South Dakota
12 12 12 12 0 12 0
Tennessee Texas Utah Vermont Virginia Washington West Virginia
0 12 12 12 12 12 12
Wisconsin Wyoming
0 12

R - order function

Here is my data
x i
1 D W MCMILLAN MEMORIAL HOSPITAL AL
2 <NA> AK
3 JOHN C LINCOLN DEER VALLEY HOSPITAL AZ
4 ARKANSAS METHODIST MEDICAL CENTER AR
5 SHERMAN OAKS HOSPITAL CA
6 SKY RIDGE MEDICAL CENTER CO
7 MIDSTATE MEDICAL CENTER CT
8 <NA> DE
9 <NA> DC
10 SOUTH FLORIDA BAPTIST HOSPITAL FL
11 UPSON REGIONAL MEDICAL CENTER GA
12 <NA> HI
13 LOST RIVERS DISTRICT HOSPITAL ID
14 JESSE BROWN VA MEDICAL CENTER - VA CHICAGO HEALTHCARE SYSTEM IL
15 COMMUNITY HOSPITAL IN
16 COVENANT MEDICAL CENTER IA
17 COFFEYVILLE REGIONAL MEDICAL CENTER KS
18 KING'S DAUGHTERS' MEDICAL CENTER KY
19 NORTH OAKS MEDICAL CENTER, LLC LA
20 RUMFORD HOSPITAL ME
21 CIVISTA MEDICAL CENTER MD
22 HEYWOOD HOSPITAL MA
23 GENESYS REGIONAL MEDICAL CENTER - HEALTH PARK MI
24 HEALTHEAST WOODWINDS HOSPITAL MN
25 MARION GENERAL HOSPITAL MS
26 LIBERTY HOSPITAL MO
27 FRANCES MAHON DEACONESS HOSPITAL MT
28 ALEGENT HEALTH MEMORIAL HOSPITAL NE
29 BANNER CHURCHILL COMMUNITY HOSPITAL NV
30 FRANKLIN REGIONAL HOSPITAL NH
31 CAPITAL HEALTH MEDICAL CENTER - HOPEWELL NJ
32 ESPANOLA HOSPITAL NM
33 METROPOLITAN HOSPITAL CENTER NY
34 MEDWEST HAYWOOD NC
35 LISBON AREA HEALTH SERVICES ND
36 CINCINNATI VA MEDICAL CENTER OH
37 JACKSON COUNTY MEMORIAL HOSPITAL OK
38 ST ALPHONSUS MEDICAL CENTER - BAKER CITY, INC OR
39 UPMC PASSAVANT PA
40 HOSPITAL METROPOLITANO DR TITO MATTEI PR
41 <NA> RI
42 PALMETTO HEALTH BAPTIST SC
43 BLACK HILLS SURGICAL HOSPITAL LLP SD
44 INDIAN PATH MEDICAL CENTER TN
45 NIX HEALTH CARE SYSTEM TX
46 BEAR RIVER VALLEY HOSPITAL UT
47 <NA> VT
48 <NA> VI
49 CARILION GILES COMMUNITY HOSPITAL VA
50 SWEDISH MEDICAL CENTER WA
51 PLATEAU MEDICAL CENTER WV
52 ST CROIX REG MED CTR WI
53 POWELL VALLEY HOSPITAL WY
54 <NA> GU
I want to order this list by column i, but for some reason it throws GU at the bottom.
When I run
order(z$i)
(z is my table)
I get this as a result
[1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
> str(z)
'data.frame': 54 obs. of 2 variables:
$ x: Factor w/ 46 levels "D W MCMILLAN MEMORIAL HOSPITAL",..: 1 NA 2 3 4 5 6 NA NA 7 ...
$ i: Factor w/ 54 levels "AL","AK","AZ",..: 1 2 3 4 5 6 7 8 9 10 ...
Which to me means that it thinks that GU belongs at the bottom of the list. Also there is a problem at the top of the list, AL is before AK and AZ is before AR.
Any suggestion why it would do this?
Thanks
z[order(as.character(z$i)), ]
will do the trick.

Using rank() with subset [closed]

Closed. This question is not reproducible or was caused by typos. It is not currently accepting answers.
This question was caused by a typo or a problem that can no longer be reproduced. While similar questions may be on-topic here, this one was resolved in a way less likely to help future readers.
Closed 8 years ago.
Improve this question
I got this data here:
State Abb Region Change
3 Arizona AZ West 24.6
6 Colorado CO West 16.9
10 Florida FL South 17.6
11 Georgia GA South 18.3
13 Idaho ID West 21.1
29 Nevada NV West 35.1
34 North Carolina NC South 18.5
41 South Carolina SC South 15.3
44 Texas TX South 20.6
45 Utah UT West 23.8
I'm trying to extract a subset where Change > 40.
When I use
subset(uspopchange, rank(Change)>40)
it works
but when I use
subset(uspopchange, Change > 40)
it comes up with nothing.
Furthermore, if I use
subset(uspopchange, Change > 16.9)
it works also.
Why does it do that? Why do I need to user rank() to get my subset?
BTW: the data is from
install.packages("gcookbook")
> library(gcookbook)
> data(uspopchange)
> head(uspopchange[order(uspopchange$Change,decreasing=TRUE),])
State Abb Region Change
29 Nevada NV West 35.1
3 Arizona AZ West 24.6
45 Utah UT West 23.8
13 Idaho ID West 21.1
44 Texas TX South 20.6
34 North Carolina NC South 18.5
There are no rows with Change greater than 40. When you are using rank(Change) > 40 in your subset(), it is giving you the rows that, based on the value of Change, have a rank higher than 40. Since there are 50 rows in your data (Change has a length of 50), you are getting the rows that rank 41, 42, 43, ... , 50.
> Top10 <- subset(uspopchange, rank(Change)>40)
> Top10[order(Top10$Change,decreasing=TRUE),]
State Abb Region Change
29 Nevada NV West 35.1
3 Arizona AZ West 24.6
45 Utah UT West 23.8
13 Idaho ID West 21.1
44 Texas TX South 20.6
34 North Carolina NC South 18.5
11 Georgia GA South 18.3
10 Florida FL South 17.6
6 Colorado CO West 16.9
41 South Carolina SC South 15.3
##
> uspopchange[order(uspopchange$Change,decreasing=TRUE),][1:10,]
State Abb Region Change
29 Nevada NV West 35.1
3 Arizona AZ West 24.6
45 Utah UT West 23.8
13 Idaho ID West 21.1
44 Texas TX South 20.6
34 North Carolina NC South 18.5
11 Georgia GA South 18.3
10 Florida FL South 17.6
6 Colorado CO West 16.9
41 South Carolina SC South 15.3
Those are equivalent.

Resources