تمرین ششم درس R

به نام خدا تمرین ششم درس R نام دانشجو : نیلوفر رجب نیک نام استاد : آقای رامین خاورزاده   Cars یک سری داده است که با این داده ها plot  را رسم می نماییم . این داده ها به صورت پیش فرض در R می باشد .

Cars

speed dist 1 4 2 2 4 10 3 7 4 4 7 22 5 8 16 6 9 10 7 10 18 8 10 26 9 10 34 10 11 17 11 11 28 12 12 14 13 12 20 14 12 24 15 12 28 16 13 26 17 13 34 18 13 34 19 13 46 20 14 26 21 14 36 22 14 60 23 14 80 24 15 20 25 15 26 26 15 54 27 16 32 28 16 40 29 17 32 30 17 40 31 17 50 32 18 42 33 18 56 34 18 76 35 18 84 36 19 36 37 19 46 38 19 68 39 20 32 40 20 48 41 20 52 42 20 56 43 20 64 44 22 66 45 23 54 46 24 70 47 24 92 48 24 93 49 24 120 50 25 85

به مثال زیر توجه کنید : در این مثال cars  را به عنوان داده در plot معرفی کرده و با استفاده از این داده ها نمودار را رسم می کند.

Examples

(require(stats); require(graphics

,"(plot(cars, xlab = "Speed (mph)", ylab = "Stopping distance (ft

(las = 1

("lines(lowess(cars$speed, cars$dist, f = 2/3, iter = 3), col = "red

("title(main = "cars data

,"(plot(cars, xlab = "Speed (mph)", ylab = "Stopping distance (ft

("las = 1, log = "xy

("(title(main = "cars data (logarithmic scales

("lines(lowess(cars$speed, cars$dist, f = 2/3, iter = 3), col = "red

((summary(fm1 <- lm(log(dist) ~ log(speed), data = cars

,(opar <- par(mfrow = c(2, 2), oma = c(0, 0, 1.1, 0

((mar = c(4.1, 4.1, 2.1, 1.1

(plot(fm1

(par(opar

## An example of polynomial regression

,"(plot(cars, xlab = "Speed (mph)", ylab = "Stopping distance (ft

((las = 1, xlim = c(0, 25

(d <- seq(0, 25, length.out = 200

}(for(degree in 1:4

(fm <- lm(dist ~ poly(speed, degree), data = cars

(assign(paste("cars", degree, sep = "."), fm

(lines(d, predict(fm, data.frame(speed = d)), col = degree

{

(anova(cars.1, cars.2, cars.3, cars.4

در این مثال به ترتیب نمودارها را رسم می کنیم. ترسیم نمودار یکی از ویژگی های مهم و دلیل قدرتمندی نرم افزار R به شمار می آید . نمودار های ایجاد شده را می توان از طریق گزینه ی منوی File به صورت فایل های PDF , Bmp , ... ذخیره نمود. توابع زیادی برای ترسیم نمودار در R وجود دارند ولی یکی از پر کاربردترین توابع نموداری مورد استفاده تابع ()plot است .این یک تابع عمومی است و نوع نمودار حاصله بستگی و به نوع اولین برهان آن دارد . چنان چه X یک بردار عددی باشد نمودار حاصله مقادیر بردار را در مقابل نماد های قابل تعریف پلت می کند . (نام متغییر روی محور عمودی , نام متغییر روی محور افقی)plot شکل کلی تابع به صورت (...,plot(x,y  است .x متغییری است که می خواهیم مقادیرش روی محور افقی تعریف شود و y متغییری است که می خواهیم مقادیرش روی محور عمودی تعریف شود. ویژگی نرم افزار R آن است که هر بار تنها یک نمودار در این صفحه نمایش داده می شود و برای دسترسی مجدد به نمودار ها باید تابع را مجددا اجرا نمود . ()Plot به مثال زیر توجه کنید که روش رسم یک نمودار را گفته در زیر آن شکل  نمودار است :

Examples

require(stats) # for lowess, rpois, rnorm

(plot(cars

((lines(lowess(cars

plot(sin, -pi, 2*pi) # see ?plot.function

:## Discrete Distribution Plot

,plot(table(rpois(100, 5)), type = "h", col = "red", lwd = 10

("(main = "rpois(100, lambda = 5

:## Simple quantiles/ECDF, see ecdf() {library(stats)} for a better one

("("/ plot(x <- sort(rnorm(47)), type = "s", main = "plot(x, type = \s