-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
101 lines (101 loc) · 2.69 KB
/
.Rhistory
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
dir15=list.dirs('/mnt/e/pyr/data/2015/')
files15=list.files(dir15)
path15=paste(dir15,files15,sep='')
path15
files15=list.files(dir15)
files15
dir15=list.dirs('/mnt/e/pyr/data/2015x/')
files15=list.files(dir15)
files15
files15=list.files(dir15)
path15=paste(dir15,files15,sep='')
path15
library(dplyr)
library(feather)
ttlfee <- read_feather(path15[2])
season <- read_feather(path15[1])
head(ttlfee)
head(season)
ttlfee[order(ttlfee[,1],decreasing=T),]
ttlfee[,1]
ttlfee[order(ttlfee[,1],decreasing=T),]
ttlfee
ttlfee[,'x5']
ttlfee[order(ttlfee[,'x5'],decreasing=T),]
ttlfee[order(ttlfee[,'x5'],decreasing=T)]
class(ttlfee)
ttlfee
ttlfee %>% arrange(x5)
season <- season %>% arrange(x5)
head(ttlfee)
head(season)
ttlfee <- ttlfee %>% arrange(x5)
class(ttlfee)
head(ttlfee)
head(season)
length(ttlfee)
ncol(ttlfee)
nrow(ttlfee)
nrow(season)
left_join(ttlfee,season)
cbind(ttlfee,season)
df_fee<-cbind(ttlfee,season)
df_fee
df_fee<-tbl_df(ttlfee,season)
df_fee <- tbl_df(df_fee)
df_fee <- data.frame(ttlfee,season)
df_fee <- tbl_df(df_fee)
df_fee
df_fee <- df_fee %>% select(x5,x1,x229,x5.1)
df_fee
df_fee %>% filter(x5 = 'CHN')
df_fee %>% filter(x5 == 'CHN')
which(df_fee$x5 == 'CHN')
df_fee[5,289,496,]
df_fee[5289496,]
df_fee[5289506,]
df_fee %>% filter(x229 >= 41000000000000)
df_fee %>% filter(x229 == 'nan')
df_fee %>% filter(x229 == 'NaN')
df_fee %>% filter(x229 == 'Nan')
df_fee %>% filter(x229 == 'nan')
df_fee$x229 <- as.numeric(df_fee$x229)
df_fee$x229
df_fee
df_fee$x229[df_fee$x229 == NaN] <- 0
df_fee
df_fee$x229[df_fee$x229 == NaN]
View(df_fee)
df_fee$x229[df_fee$x229 == 'NaN'] <- 0
df_fee
df_fee$x229[df_fee$x229 == 'NaN']
df_fee %>% filter(x229 >= 41000000000000)
df_fee
df_fee[5289506,]
df_fee[5289506,x229]
df_fee[5289506,'x229']
df_fee %>% filter(x229 >= 4100000000000)
df_fee %>% filter(x229 >= 410000000000)
which(df_fee$x5 == 'CHN')
nrow(df_fee)
df_fee %>% filter(x229 == 1788.4 & x1== '201502--')
path15
otherfee <- read_feather(path15[31])
otherfee <- otherfee %>% arrayInd(x5)
otherfee <- otherfee %>% arrange(x5)
df_fee <- data.frame(ttlfee,season,otherfee)
df_fee <- tbl_df(df_fee)
df_fee
df_fee <- df_fee %>% select(x5,x1,x229,x258,x5.1,x5.2)
df_fee %>% filter(x5 == 'CHN')
df_fee %>% filter(x229 == 1788.4 & x1== '201502--' & x258 == 161.4)
df_fee %>% filter(x229 == 1865.14 & x1== '201502--' & x258 == 378.4)
which(df_fee$x229 == 1865.14 & df_fee$x1== '201502--' & df_fee$x258 == 378.4)
which(df_fee$x229 == 1788.4 & df_fee$x1== '201502--' & df_fee$x258 == 161.4)
df_fee[4780530,]
which(df_fee$x229 == 4427.05 & df_fee$x1== '201502--' & df_fee$x258 == 41)
which(df_fee$x229 == 4427.05 & df_fee$x1== '201502--' & df_fee$x258 == 41.0)
which(df_fee$x229 == 4427.05 & df_fee$x1== '201502--'
)
df_fee[4780710,]
df_fee[4780711,]