Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

ТСХА_ Лекц_2_R__2018_испр

.pdf
Скачиваний:
15
Добавлен:
08.06.2020
Размер:
2.6 Mб
Скачать

Задание 1.3.

А. Выполните следующие операции и прокомментируйте каждую сторку:

> x=c(0,1, 2, 7,10, 14, 3, 89)

> x

> x[6]

> x[3:8]

> x[c(4, 7)]

> x[-3]

> x[-(2:5)]

> x[x>3]

> x[x>3 & x<70]

Б. Выполните аналогичные операции для своего варианта

Сохраните скрипт и прокомментируйте результаты (для этого, начните строчку со знака #)

51

52

Задание имен элементам вектора

Элементам вектора можно присваивать имена

>ranks = 11:13 >ranks

[1] 11 12 13

>names(ranks) = c(“Lena", “Olja", “Irina")

>ranks[“Irina"]

Irina 13

Аналогично можно задавать значение используя имена

>ranks[“Lena"] =55

> ranks

Lena Olja Irina 55 12 13

53

Имена элементов векторов x=1:5

names(x)

## NULL

names(x)<- c("Первый", "Второй","Третий", "Четвертый", "Первый")

names(x)

##[1] "Первый" "Второй" "Третий" "Четвертый" "Первый"

x["Первый"]

##Первый

##1

54

Тема 3. Основы работы в программной среде R

1.Общие сведения о программной среде R

2.R как калькулятор

3.Создание векторов

4.Операции с векторами

5.Простейшие графики

6.Проверка и задание рабочей директории

7.Фреймы (таблицы данных), создать фрейм, загрузить из файла и сохранить в файл

55

Построение гистограммы

Вектор с заданными именами элементов будет отображен как столбчатая диаграмма со значениями вектора в качестве высоты столбцов, и именами переменных, как подписи по оси абсцисс

vessels <- c(4, 5, 1)

names(vessels) <- c("England", "France", "Norway") barplot(vessels)

56

Для выполнения серии команд можно их скопировать в область скрипта и нажать кнопку Run

57

Нажав на кнопку

Export можно сохранить рисунок

58

Вы можете построить любой график - функция plot

Для этого вам понадобятся два вектора, по одному для каждой из осей

x = seq(1, 20, 0.1) y =sin(x) plot(x,y)

59

 

Тип графика

type= "p "

точки

>x_data = c(0:10)

type= "l "

линии

 

type= "b "

точки и линии

 

 

>y_data = x_data +5

 

 

 

>plot(x_data, y_data, type= "p", main = "My Chart

Title", xlab ="X", ylab = "Y", col ="red")

Заголовок

Подписи осей

Цвет точек

или dark red, green, blue, white …

60 Для команды barplot параметры те же