2018-10-16 data frames

x <- data.frame()
str(x)
class(x)

data.frame(x=10, y=5)
data.frame(x=rnorm(5,0,1), y=rnorm(5,0,1))

x  <- rnorm(5, 0, 1)
y  <- rnorm(5, 0, 1)
df <- data.frame(x, y)

nrow(df)
ncol(df)

library(tibble)
df <- tibble(x, y)
class(df)
str(df)

df1 <- tibble(x=rnorm(5, 0, 1), y=rnorm(5, 0, 1))
df2 <- tibble(x=rnorm(4, 0, 1), y=rnorm(4, 0, 1))
df3 <- tibble(x=rnorm(5, 0, 1), y=rnorm(5, 0, 1), z=rnorm(5, 0, 1))

rbind(df1, df2)
rbind(df1, df3)
cbind(df1, df2)
cbind(df1, df3)

library(dplyr)
bind_rows(df1, df2)
bind_rows(df1, df3)
bind_cols(df1, df2)
bind_cols(df1, df3)

df <- tibble(x=rnorm(10, 0, 1), y=rnorm(10, 0, 1), z=rnorm(10, 0, 1))

select(df, x, y)
df %>% select(c(x, y))
df %>% select(x, y)
df %>% select(z)
df %>% select(-z)
df %>% select(-c(x, y))

filter(df, x>0)
df %>% filter(x>0)
df %>% filter(x>0 & z>-0)
df %>% filter(x>0 | z>-0)
df %>% filter(x>0) %>% select(x, z)

df %>% arrange(x)
df %>% arrange(x, y)
df %>% arrange(desc(x))

Συνδεθείτε για περισσότερες δυνατότητες αλληλεπίδρασης,
σχολιασμοί, εξωτερικοί σύνδεσμοι, βοήθεια, ψηφοφορίες, αρχεία, κτλ.

Creative Commons License
Εκπαιδευτικό υλικό από τον Αθανάσιο Σταυρακούδη σας παρέχετε κάτω από την άδεια Creative Commons Attribution-NonCommercial-ShareAlike 4.0 License.
Σας παρακαλώ να ενημερωθείτε για κάποιους επιπλέον περιορισμούς
http://stavrakoudis.econ.uoi.gr/stavrakoudis/?iid=401.