Text(x,y,) - позволяет поместить текст внутри диаграммы



Визуализация данных

Справочный материал для работы

Исследователям постоянно нужно смотреть на свои данные, поэтому в R имеются богатые возможности для визуализации данных.

Для гистограмм (гистограммы служат только для отображения числовых данных, для категориальных данных служат диаграммы):

 hist(Austria$agea, col = "green", border = "red", breaks=20 – количество разбиений)

Новая диаграмма, которая создаётся при помощи команды высокого уровня, такого как plot(), hist(), boxplot(), обычно заменяет предыдущую диаграмму.

Но можно создавать новые графические устройства и обе диаграммы обрисуются:

Dev.new()

Plot()

Dev.new()

Plot()

 

Чтобы нарисовать два графика вместе:

curve(2*sin(x/2) , col="red",from=-5, to = 5)

curve(x*x/(x*x+1), add=T , col="violet", from=-5, to = 5)

Чтобы вывести в разных окнах:

dev.new()

curve(2*sin(x/2) , col="red",from=-5, to = 5)

dev.new()

curve(x*x/(x*x+1), add=F , col="violet", from=-5, to = 5)

Работа с диаграммами

png("ppp.png")#/pdf() - сохрание в pdf или png в рабочей директории

attach(mtcars)#добавление в область видиости, путь поиска

plot(wt, mpg)# – диаграмма рассеивания веса автомобиля по x и расхода топлива по y

abline(lm(mpg~wt)) #– регрессионная прямая

title (“some title”)

detach ( mtcars)

dev.off ()


Графические параметры

Первый способ изменения графических параметров:

Par(параметр = значение, …) – устанавливаем графические параметры для всей сессии, пока не изменим их

Opar <- par(no.readonly=T) # создаём копию текущих параметров, которые мы можем менять

Par (lty=2, pch=17) # lty=2 – тип линии пунктирная, pch=17 – тип символа заполненный треугольник

Plot(….)

Par(opar) #возврат к исходным параметрам

Второй способ изменения графических параметров:

Внутри самих функций высокого уровня.

                                                                                                                                       

Некоторые графические параметры:

Pch – определяет тип символа, cex – размер символа,

Cex.axis – размер значений на осях по отношению к cex

Cax.lab – размер названий полей

Cex.main – размер заголовка

Font – шрифт текста на диаграмме (1, 2 (полужирный), 3 (курсив), 4 (полужирный курсив), 5 – символы (в кодирвоке Адоб)

Family=”mono”, “serif” – примеры задания шрифтов.

Lty – тип линии, lwd – толщина линии.

Xlim, ylim – диапазон осей

Пример: par(cex=1, pch=18,lty=1, lwd = 1, font.main=3)

Задание цвета

colors() – выводит список всех цветов

1) По номеру из списка colors (): col =2 и тд

2) Col = ”white”

3) Col = ””#FFFFFF”

4) Col = rgb(1,1,1)

5) Col = hsv(0,0,1)

Система hsv(Hue, Satuaration, Value) – Hue – цветовой тон (от 0 до 1, или 0 – 360, или 0 100 – варьируетяс по цветам радуги от жёлтого к ультрофиолетовому)

Saturation – насыщенность (чистота цвета), 0 -1 или 0 -100 

Value – яркость (0-1 или 0 – 100)

 

Размер диаграммы и полей

Pin = с(width, heigh) – размер диаграммы (1 дюйм 2.5 см)

Plt – размер области для рисования на форме

A vector of the form c(x1, x2, y1, y2) giving the coordinates of the plot region as fractions of the current figure region.

Din – размер самой формы (нельзя изменить).

Пример:

par(pin=c(2,2),plt=c(0,.5,0,1))

plot(1:10, 1:10)

То есть с помощью pin мы меняем размер диаграммы относительно формы, а с помощью plt задаём где вообще может рисоваться диаграмма на форме.

 

Mai = c(down, left, top, right) – размеры полей

Par(Pin = с(width, heigh), Mai = c(down, left, top, right)) – пример использования

Настройка подписей осей

Main – заголовок, sub – подзаголовок, xlab, ylab- подписи осей,

Xlim, ylim – диапазон осей

Title (main= , sub = , xlab, ylab = ) – для задания заголовков

 


Оси

Side = 1, 2, 3, 4 – показывает с какой стороны рисовать оси

axes=FALSE – чтобы не отображать оси

Text(x,y,) - позволяет поместить текст внутри диаграммы

Легенда

Функция legend()

Параметры: location – расположение легенды (через координаты x,y либо “top”, “bottom” и тд), title и др

Пример :

dose <- c(20,30, 40, 45, 60)

drugA <- c(16, 20, 27, 40, 60)

drugB <- c(15, 18, 25, 31, 40)

opar <- par(no.readonly=T)

par(lwd=2, cex=1.3, font.lab=2)

plot(dose, drugA, type="b", pch=15, lty=1, col="red", ylim=c(0,60),main="Сравнение препаратов A и B",

xlab="Дозировка препарата", ylab="Эффект от препарата")

lines(dose, drugB, type="b", pch=17, lty=2, col="blue")

text(dose, drugB, 1:5, cex=0.6, pos=4, col="red")

mtext("Ваша реклама.", side = 4) #юмор) – примердобавления текста с правого края

legend( "topleft",inset=.05, title="Тип препарата ", c("A","B"), lty=c(1,2), pch=c(15,17), col=c("red","blue")) # inset – отступ от основной рамки,

abline(h=c(30), lwd=1.5, lty=2, col="gray")

par(opar)

 


Дата добавления: 2020-11-15; просмотров: 107; Мы поможем в написании вашей работы!

Поделиться с друзьями:






Мы поможем в написании ваших работ!