alex/CREP_Policy_Interaction_Analysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updated SBD1 Fallow Data

Browse Source
This commit is contained in:
Alex Gebben Work 2026-04-20 17:07:46 -06:00
parent f66b05c208
commit 6bd0ae9639
3 changed files with 192 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
Data/CREP_and_Fallow/Create_CREP_Data.r
View File

@ -15,5 +15,75 @@ ACRES <- c(144,144,210,60,130,120.4,120,121.5,172.09,113,191,116.5,120,124,120,1
CREP_TEMP <- cbind(CONTRACT_NUMBER,FIRST_FALLOW_YEAR,RETURN_YEAR,ACRES,read_csv("CREP_Temp.csv")) %>% as_tibble %>% mutate(program='CREP',contract_type='Temp')
CREP_TEMP %>% full_join(CREP_PERM)
CREP_PERM
######SBD1 Fallow Program
CONTRACT_NUMBER <- c(paste("Fallow Parcel ",1:23),paste("Fallow Parcel ",1:27),c(paste("Fallow Parcel ",1:9),paste("Fallow Parcel ",11:33)))
CONTRACT_TERM <- c(
c(rep(4,10),rep(1,4),rep(4,4),rep(2,2),4,rep(2,2)),
c(rep(4,14),rep(2,2),4,rep(2,2),rep(4,8)),
c(rep(4,19),2,4,rep(2,6),rep(1,2),rep(4,3))
)
length(CONTRACT_TERM )
length(c(rep(4,17),rep(2,6),rep(1,2),rep(4,3)))
FIRST_FALLOW_YEAR <- c(
c(rep(2018,9),rep(2019,3),2018,rep(2019,10)),
c(rep(2018,9),rep(2019,13),rep(2020,5)),
c(rep(2018,9),2020,rep(2019,4),2020,rep(2019,5),rep(2020,3),rep(2021,9))
)
length(c(rep(2018,9),2020,rep(2019,4),2020,rep(2019,5),rep(2020,3),rep(2021,9)))
RETURN_YEAR <- CONTRACT_TERM +FIRST_FALLOW_YEAR
RETURN_YEAR
ACRES <- c(
c(115,126,126,120,130,120,84.2,120,126,120,120,120,123,122.78,106,120,115,45,120,120,120,120,140),
c(145,126,126,120,130,120,84.2,120,126,120,106,120,115,45,rep(120,4),140,rep(120,3),121,120,125,38,124),
c(126,120,120,115,130,120,126,126,84.2,125,120,115,120,45,106,120,120,38,126,121,120,116,116,120,113,115,122,480,480,118,120,75)
)
length( c(126,120,120,115,130,120,126,126,84.2,125,120,115,120,45,106,120,120,38,126,121,120,116,116,120,113,115,122,480,480,118,120,75))
cbind(CONTRACT_NUMBER,FIRST_FALLOW_YEAR,RETURN_YEAR,ACRES)
length(CONTRACT_NUMBER)
length(FIRST_FALLOW_YEAR)
length(ACRES)
length(CONTRACT_TERM)
SBD1_TEMP_FALLOW <- cbind(CONTRACT_NUMBER,FIRST_FALLOW_YEAR,RETURN_YEAR,ACRES,read_csv("SBD1_Temp_Fallow.csv")) %>% as_tibble %>% mutate(program='SBD Temp Fallow',contract_type='Temp',wdid1=as.character(wdid1),wdid2=as.character(wdid2),wdid3=as.character(wdid3),wdid4=as.character(wdid4),wdid5=as.character(wdid5),wdid6=as.character(wdid6),wdid7=as.character(wdid7),wdid8=as.character(wdid8))
SBD1_TEMP_FALLOW
nrow(SBD1_TEMP_FALLOW )
(SBD1_TEMP_FALLOW %>% filter(ACRES==125))[,-1:-1]
#Little changes so manually add 2022 data
ADDITIONS_2022 <- rbind(SBD1_TEMP_FALLOW[6,]%>% mutate(wdid1='2705334',CONTRACT_NUMBER='Fallow Parcel 34',ACRES=119,FIRST_FALLOW_YEAR=2022,RETURN_YEAR=2023,Data_Year=2022),SBD1_TEMP_FALLOW[6,]%>% mutate(wdid1='2008616',CONTRACT_NUMBER='Fallow Parcel 34',wdid2='20131888',ACRES=125,FIRST_FALLOW_YEAR=2022,RETURN_YEAR=2023,Data_Year=2022))
SBD1_TEMP_FALLOW <- rbind(SBD1_TEMP_FALLOW,ADDITIONS_2022)
#####2023 data
CONTRACT_NUMBER <- as.character(1:11 )
FIRST_FALLOW_YEAR <- c(rep(2020,4),rep(2021,7))
RETURN_YEAR <- c(rep(2024,6),rep(2025,5))
ACRES <- c(38.09,125,121,120,120,110,73.46,50,119,120,118)
wdid1 <- c(2013693,2005731,2013884,2706159,2705471,2705395,2008226,2008591,2009461,2009114,2010568)
wdid2 <- c(rep(NA,5),2705517,2014273,NA,2009462,NA,2005035)
wdid3 <- c(rep(NA,10),2014173)
SBD1_TEMP_FALLOW
DATA_2023 <-cbind(CONTRACT_NUMBER,FIRST_FALLOW_YEAR,RETURN_YEAR,ACRES)%>% as_tibble %>% mutate(Data_Year=2023) %>% cbind(wdid1,wdid2,wdid3) %>% as_tibble %>% mutate(CONTRACT_NUMBER=as.character(CONTRACT_NUMBER),FIRST_FALLOW_YEAR=as.numeric(FIRST_FALLOW_YEAR),RETURN_YEAR=as.numeric(RETURN_YEAR),ACRES=as.numeric(ACRES),wdid1=as.character(wdid1),wdid2=as.character(wdid2),wdid3=as.character(wdid3),wdid4=NA,wdid5=NA,wdid6=NA,wdid7=NA,wdid8=NA,program='SBD Temp Fallow',contract_ype='Temp')
SBD1_TEMP_FALLOW <- SBD1_TEMP_FALLOW %>% full_join(DATA_2023 )
#####2024 data
###########Half Fallow Program
CONTRACT_NUMBER <- paste("Half Usage",1:38)
FIRST_FALLOW_YEAR <- rep(2020,38)
RETURN_YEAR <- rep(2021,38)
LIMIT <- c(90.6,91.5,83.4,85.2,89.8,82.4,81.0,72.0,98.8,97.8,92.2,94.0,111.7,118.0,102.0,92.1,117.0,99.4,95.7,149.0,54.6,22.6,102.4,97.5,211.6,104.5,47.5,76.2,34.5,74.1,53.0,85.7,130.7,97.4,115.0,56.0,33.4,45.9)
ACRES <- c(111.92,119.22,116.82,117.26,119.1,123,118.03,106.98,109.15,120,117,128,126,126,125,121,121,126,121,120,43,24,138,137,117,121.5,142,126,174.22,118,118,119,126,126,120,114,126,63)
HALF_FALLOW <- cbind(CONTRACT_NUMBER,FIRST_FALLOW_YEAR,RETURN_YEAR,ACRES,LIMIT,read_csv("SBD1_Half_Fallow.csv")) %>% as_tibble %>% mutate(program='SBD Half Fallow',contract_type='Temp')
HALF_FALLOW %>% tail
cbind(CONTRACT_NUMBER,ACRES,LIMIT)

39
Data/CREP_and_Fallow/SBD1_Half_Fallow.csv Normal file
View File

@ -0,0 +1,39 @@
wdid1,wdid2,wdid3,wdid4
2008026
2006428, 2005137
2013801, 2998539
20138584, 2008504
2013375, 2005155
2005876, 2009550,2013330
2006502, 2009205
2006504, 2009147
2006474, 2008502
2012166, 2012163
2005340, 2005049
2008962, 2008963
2013506, 2008965
2005046, 2005410
2008457, 2008452
2009305, 2013915
2005207, 2014155
2705247
2005176, 2006011
2005645
2005033
2010719
2008235, 2011333
2008397, 2008406
2005527, 2012676
2008197, 2013969
2008040, 2010723
2705050, 2705058
2009609
2706270
2705797
2705436, 2705437,2705644, 2706071
2012450
2012668
2705235
2006567
2013548
2013563
1 wdid1,wdid2,wdid3,wdid4
2 2008026
3 2006428, 2005137
4 2013801, 2998539
5 20138584, 2008504
6 2013375, 2005155
7 2005876, 2009550,2013330
8 2006502, 2009205
9 2006504, 2009147
10 2006474, 2008502
11 2012166, 2012163
12 2005340, 2005049
13 2008962, 2008963
14 2013506, 2008965
15 2005046, 2005410
16 2008457, 2008452
17 2009305, 2013915
18 2005207, 2014155
19 2705247
20 2005176, 2006011
21 2005645
22 2005033
23 2010719
24 2008235, 2011333
25 2008397, 2008406
26 2005527, 2012676
27 2008197, 2013969
28 2008040, 2010723
29 2705050, 2705058
30 2009609
31 2706270
32 2705797
33 2705436, 2705437,2705644, 2706071
34 2012450
35 2012668
36 2705235
37 2006567
38 2013548
39 2013563

83
Data/CREP_and_Fallow/SBD1_Temp_Fallow.csv Normal file
View File

@ -0,0 +1,83 @@
"Data_Year","wdid1","wdid2","wdid3","wdid4","wdid5","wdid6","wdid7","wdid8"
2019,2705499,2706226,,,
2019,2006339,2014084,2014083,2006340,2014085
2019,2008041,2008042,2014477,,
2019,2706257,2011125,2005062,,
2019,2005399,,,,
2019,2005398,,,,
2019,2705546,,,,
2019,2006288,2006289,2013558,2014265,
2019,2705223,2706223,,,
2019,2005468,2005515,,,
2019,2705106,,,,
2019,2705471,,,,
2019,2705112,2706284,,,
2019,2706284,2705112,,,
2019,2005461,2005497,,,
2019,2705240,,,,
2019,2012648,2012647,,,
2019,2014256,,,,
2019,27051131,,,,
2019,2705517,,,,
2019,2705138,,,,
2019,2705131,2706259,,,
2019,2705137,2705130,,,
2020,2005866,2012298,2013762,,
2020,2006339, 2014084, 2014083, 2006340, 20140850
2020,2006574, 2006575
2020,2005592
2020,2005399
2020,2005398
2020,2705546
2020,2006288, 2006289,2013558, 2014265
2020,2010696, 2014473
2020,2005468, 2005515
2020,2005461, 2005497
2020,2705240
2020,2012648, 2012647
2020,2014256
2020,2705113
2020,2705517
2020,2705138
2020,2705131, 2706259
2020,2705137, 2705130
2020,2006288, 2006289
2020,2005468, 2005515
2020,2005445, 2005519
2020,2013884
2020,2706159
2020,2005731
2020,2013693
2020,2013712
2021,2008041, 2008042, 2014477
2021,2006289, 2014265, 2006288
2021,2705350, 2705649
2021,2705306, 2706239
2021,2005399
2021,2005398
2021,2008146,2008147,2013953
2021,2006339,2014084,2014083,2006340
2021,2705546
2021,2005731
2021,2005471, 2005518,201446,2014509
2021,2012648
2021,2705240
2021,2014256
2021,2012647
2021,2005445, 2005509, 2014211,2014012
2021,2705138
2021,2013693
2021,2010696, 2014473
2021,2013884
2021,2706159
2021,2009835,2009836
2021,2013625
2021,2010328, 2010329
2021,2010330, 2014290
2021,2009617
2021,2005134, 2005534
2021,2705169, 2705170, 2705103, 2706287, 2705104, 2705108, 2705107, 2705109
2021,2705095, 2705096, 2705482, 2706285, 2705465, 2706289,2706114
2021,2010568, 2005035, 2014173
2021,2009114
2021,2008226, 2014273
Can't render this file because it has a wrong number of fields in line 2.