Данные в R

数据框（Data frame）可以理解成我们常说的"表格"。

数据框是 R 语言的数据结构，是特殊的二维列表。

数据框每一列都有一个唯一的列名，长度都是相等的，同一列的数据类型需要一致，不同列的数据类型可以不一样。

R 语言数据框使用 data.frame() 函数来创建，语法格式如下：

data.frame(…,　row.names　=　NULL,　check.rows　=　FALSE,
　　　　　　　　　　　check.names　=　TRUE,　fix.empty.names　=　TRUE,
　　　　　　　　　　　stringsAsFactors　=　default.stringsAsFactors())

• ...: 列向量，可以是任何类型（字符型、数值型、逻辑型），一般以 tag = value 的形式表示，也可以是 value。

• row.names: 行名，默认为 NULL，可以设置为单个数字、字符串或字符串和数字的向量。

• check.rows: 检测行的名称和长度是否一致。

• check.names: 检测数据框的变量名是否合法。

• fix.empty.names: 设置未命名的参数是否自动设置名字。

• stringsAsFactors: 布尔值，字符是否转换为因子，factory-fresh 的默认值是 TRUE，可以通过设置选项（stringsAsFactors=FALSE）来修改。

以下创建一个简单的数据框，包含姓名、工号、月薪：

table = data.frame(
　　　　имя <- c(\"Чан Сань\",　\"Ли Сих\"),
　　　　рабочий номер <- c(\"001\",\"002\"),
　　　　зарплата <- c(1000,　2000)
　　　　
)
print(table)　#　查看　table　数据

Результат выполнения кода выше:

Имя　Номер работника　Зарплата
1　Zhangsan　　001　1000
2　Lisi　　002　2000

数据框的数据结构可以通过 str() 函数来展示：

table = data.frame(
　　　　имя <- c(\"Чан Сань\",　\"Ли Сих\"),
　　　　рабочий номер <- c(\"001\",\"002\"),
　　　　зарплата <- c(1000,　2000)
)
#　获取数据结构
str(table)

Результат выполнения кода выше:

'data.frame':　　　2　obs.　of　　3　variables:
　$　姓名:　chr　　"张三"　"李四"
　$　工号:　chr　　"001"　"002"
　$　зарплата:　num　　1000　2000

summary() Можно показать резюме дата-фрейма:

table = data.frame(
　　　　имя <- c(\"Чан Сань\",　\"Ли Сих\"),
　　　　рабочий номер <- c(\"001\",\"002\"),
　　　　зарплата <- c(1000,　2000)
　　　　
)
#　Показать резюме
print(summary(table))

Результат выполнения кода выше:

Имя　　　　　　　　　　　　　　　рабочий номер　　　　　　　　　　　　　　зарплата　　　　　
Length:2　　　　　　　　　　　Length:2　　　　　　　　　　　Min.　　　:1000　　
Class　:character　Class　:character　1st Qu.:1250　　
Mode　　:character　Mode　　:character　Median　:1500　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Mean　　　:1500　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　3rd Qu.:1750　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Макс.　　　:2000

Мы также можем извлечь指定的 столбцы:

table = data.frame(
　　　　имя <- c(\"Чан Сань\",　\"Ли Сих\"),
　　　　рабочий номер <- c(\"001\",\"002\"),
　　　　зарплата <- c(1000,　2000)
)
#　Извлечение指定的 столбцов
result <- data.frame(table$имя,table$зарплата)
print(result)

Результат выполнения кода выше:

table.имя　table.зарплата
1　　　　　　　Чан Сань　　　　　　　1000
2　　　　　　　Ли Сих　　　　　　　2000

Следующий формат показывает первые две строки:

table = data.frame(
　　　　Имя = c("Зhangsan",　"Lisi","Wangwu"),
　　　　Номер работника = c("001","002","003"),
　　　　Зарплата = c(1000,　2000,3000)
)
print(table)
#　Извлечение первых двух строк
print("---Вывод первых двух строк----")
result <- table[1:2,]
print(result)

Результат выполнения кода выше:

Имя　Номер работника　Зарплата
1　Zhangsan　　001　1000
2　Lisi　　002　2000
3　Wangwu　　003　3000
[1]　"---Вывод первых двух строк----"
　　Имя　Номер работника　Зарплата
1　Zhangsan　　001　1000
2　Lisi　　002　2000

Мы можем читать данные из определённых строк и столбцов в виде координат, в следующем примере мы читаем данные из 2-го и 3-го рядов 1-го и 2-го столбцов:

table = data.frame(
　　　　Имя = c("Зhangsan",　"Lisi","Wangwu"),
　　　　Номер работника = c("001","002","003"),
　　　　Зарплата = c(1000,　2000,3000)
)
#　Чтение 2-го и 3-го рядов 1-го и 2-го столбцов данных:
result <- table[c(2,3),c(1,2)]
print(result)

Результат выполнения кода выше:

Имя　рабочий номер
2　Ли Сих　　002
3　Ван Ву　　003

Расширение дата-фрейма

Мы можем расширить существующий дата-фрейм, в следующем примере мы добавляем столбец отдела:

table = data.frame(
　　　　Имя = c("Зhangsan",　"Lisi","Wangwu"),
　　　　Номер работника = c("001","002","003"),
　　　　Зарплата = c(1000,　2000,3000)
)
#　Добавление столбца отдела
table$отдел <- c(\"оператор\",\"технолог\",\"редактор\")
print(table)

Результат выполнения кода выше:

Имя　рабочий номер　зарплата　отдел
1　Чан Сань　　001　1000　оператор
2　Ли Сих　　002　2000　технолог
3　Ван Ву　　003　3000　редактор

Мы можем использовать cbind() Функция комбинирует несколько векторов в один дата-фрейм:

#　Создание вектора
sites <- c(\"Google\",\"w3codebox\",\"Taobao\")
likes <- c(222,111,123)
url <- c("www.google.com","ru.oldtoolbag.com","www.taobao.com")
#　Составление данных
addresses <- cbind(sites,likes,url)
#　Просмотр данных
print(addresses)

Результат выполнения кода выше:

　　　　　сайты　　　　likes　url　　　　　　　　　　　　　
[1,]　"Google"　"222"　"www.google.com"
[2,]　"w3codebox"　"111"　"ru.oldtoolbag.com"
[3,]　"Taobao"　"123"　"www.taobao.com"

Чтобы слияние двух данных можно использовать rbind() Функция：

table = data.frame(
　　　　Имя = c("Зhangsan",　"Lisi","Wangwu"),
　　　　Номер работника = c("001","002","003"),
　　　　Зарплата = c(1000,　2000,3000)
)
newtable = data.frame(
　　　　Имя = c("Сяoming",　"Сяobai"),
　　　　Номер работника = c("101","102"),
　　　　Зарплата = c(5000,　7000)
)
#　Слияние двух данных
result <- rbind(table,newtable)
print(result)

Результат выполнения кода выше:

Имя　Номер работника　Зарплата
1　Zhangsan　　001　1000
2　Lisi　　002　2000
3　Wangwu　　003　3000
4　Сяoming　　101　5000
5　Начинающий　　102　7000