从R中的DataFrame中选择奇数和偶数行和列
在本文中,我们将讨论如何使用 R 编程语言从数据框中选择奇数行和偶数行。
从数据框中获取奇数行
R 中数据帧中的行数可以通过 nrow() 方法获取。它返回数据框中的行数。然后应用 seq_len() 方法生成从 1 开始到行数的整数。 R 中整数 2 的取模方法可用于根据它们在获得的向量上的索引来获取奇数行或偶数行。数据帧的相应行索引使用模方法进行操作。以下语法用于获取数据帧的奇数行。
句法:
seq_len(rows)%%2
然后可以使用数据帧索引方法获取奇数行索引等于 1 的行。
句法:
data_frame[odd_row == 1, ]
示例:从数据框中选择奇数行
R
# creating a data frame in R
data_frame <- data.frame(col1 = 1:10,
col2 = letters[1:10],
col3 = rep(5:9,2))
print ("Original Dataframe")
print(data_frame)
# getting number of rows in R
rows <- nrow(data_frame)
# extracting odd rows
odd_rows <- seq_len(rows) %% 2
# getting data from odd data frame
data_mod <- data_frame[odd_rows == 1, ]
print ("odd rows of dataframe")
print(data_mod)
R
# creating a data frame in R
data_frame <- data.frame(col1 = 1:10,
col2 = letters[1:10],
col3 = rep(5:9,2))
print ("Original Dataframe")
print(data_frame)
# getting number of rows in R
rows <- nrow(data_frame)
# extracting odd rows
even_rows <- seq_len(rows) %% 2
# getting data from odd data frame
data_mod <- data_frame[even_rows == 0, ]
print ("even rows of dataframe")
print(data_mod)
R
# creating a data frame in R
data_frame <- data.frame(col1 = 1:10,
col2 = letters[1:10],
col3 = rep(5:9,2))
print ("Original Dataframe")
print(data_frame)
# getting number of columns in R
cols <- ncol(data_frame)
# extracting odd rows
odd_cols <- seq_len(cols) %% 2
# getting data from odd data frame
data_mod <- data_frame[, odd_cols == 1]
print ("odd columns of dataframe")
print(data_mod)
R
# creating a data frame in R
data_frame <- data.frame(col1 = 1:10,
col2 = letters[1:10],
col3 = rep(5:9,2))
print ("Original Dataframe")
print(data_frame)
# getting number of columns in R
cols <- ncol(data_frame)
# extracting odd rows
even_cols <- seq_len(cols) %% 2
# getting data from odd data frame
data_mod <- data_frame[, even_cols == 0]
print ("even columns of dataframe")
print(data_mod)
输出:
[1] "Original Dataframe"
col1 col2 col3
1 1 a 5
2 2 b 6
3 3 c 7
4 4 d 8
5 5 e 9
6 6 f 5
7 7 g 6
8 8 h 7
9 9 i 8
10 10 j 9
[1] "odd rows of dataframe"
col1 col2 col3
1 1 a 5
3 3 c 7
5 5 e 9
7 7 g 6
9 9 i 8
从数据框中获取偶数行
R 中数据帧中的行数可以通过 nrow() 方法获取。它返回数据框中的行数。然后应用 seq_len() 方法生成从 1 开始到行数的整数。 R 中整数 2 的取模方法可用于根据它们在获得的向量上的索引来获取奇数行或偶数行。数据帧的相应行索引使用模方法进行操作。以下语法用于获取数据帧的奇数行。
句法:
seq_len(rows)%%2
然后可以使用数据框索引方法获取偶数行索引等于 0 的行。
句法:
data_frame[odd_row == 0, ]
示例:从数据框中选择偶数行
电阻
# creating a data frame in R
data_frame <- data.frame(col1 = 1:10,
col2 = letters[1:10],
col3 = rep(5:9,2))
print ("Original Dataframe")
print(data_frame)
# getting number of rows in R
rows <- nrow(data_frame)
# extracting odd rows
even_rows <- seq_len(rows) %% 2
# getting data from odd data frame
data_mod <- data_frame[even_rows == 0, ]
print ("even rows of dataframe")
print(data_mod)
输出:
[1] "Original Dataframe"
col1 col2 col3
1 1 a 5
2 2 b 6
3 3 c 7
4 4 d 8
5 5 e 9
6 6 f 5
7 7 g 6
8 8 h 7
9 9 i 8
10 10 j 9
[1] "even rows of dataframe"
> print(data_mod)
col1 col2 col3
2 2 b 6
4 4 d 8
6 6 f 5
8 8 h 7
10 10 j 9
从数据框中获取奇数列
R 中数据框中的列数可以通过 ncol() 方法获取。它返回数据框中的列数。然后可以使用模数方法,R 中的整数 2 可用于根据获得的向量上的索引获取奇数列或偶数列。数据帧的相应列索引使用模方法进行运算。以下语法用于获取数据帧的奇数行。
句法:
seq_len(cols)%%2
然后可以使用数据框索引方法来获取奇数列索引等于 1 的行。
句法:
Data_frame[, odd_cols==1 ]
示例:从数据框中选择奇数列
电阻
# creating a data frame in R
data_frame <- data.frame(col1 = 1:10,
col2 = letters[1:10],
col3 = rep(5:9,2))
print ("Original Dataframe")
print(data_frame)
# getting number of columns in R
cols <- ncol(data_frame)
# extracting odd rows
odd_cols <- seq_len(cols) %% 2
# getting data from odd data frame
data_mod <- data_frame[, odd_cols == 1]
print ("odd columns of dataframe")
print(data_mod)
输出:
[1] "Original Dataframe"
col1 col2 col3
1 1 a 5
2 2 b 6
3 3 c 7
4 4 d 8
5 5 e 9
6 6 f 5
7 7 g 6
8 8 h 7
9 9 i 8
10 10 j 9
[1] "odd rows of dataframe"
col1 col3
1 1 5
2 2 6
3 3 7
4 4 8
5 5 9
6 6 5
7 7 6
8 8 7
9 9 8
10 10 9
从数据框中获取偶数列
R 中数据框中的列数可以通过 ncol() 方法获取。它返回数据框中的列数。然后可以使用模数方法,R 中的整数 2 可用于根据获得的向量上的索引获取奇数列或偶数列。数据帧的相应列索引使用模方法进行运算。以下语法用于获取数据帧的奇数行。
句法:
seq_len(cols)%%2
然后可以使用数据框索引方法获取奇数列索引等于 0 的行。
句法:
Data_frame[, odd_cols==0 ]
示例:从数据框中选择偶数列
电阻
# creating a data frame in R
data_frame <- data.frame(col1 = 1:10,
col2 = letters[1:10],
col3 = rep(5:9,2))
print ("Original Dataframe")
print(data_frame)
# getting number of columns in R
cols <- ncol(data_frame)
# extracting odd rows
even_cols <- seq_len(cols) %% 2
# getting data from odd data frame
data_mod <- data_frame[, even_cols == 0]
print ("even columns of dataframe")
print(data_mod)
输出:
[1] "Original Dataframe"
col1 col2 col3
1 1 a 5
2 2 b 6
3 3 c 7
4 4 d 8
5 5 e 9
6 6 f 5
7 7 g 6
8 8 h 7
9 9 i 8
10 10 j 9
[1] "even columns of dataframe"
[1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j"