#Example_1

list_data <- list(c("Jan","Feb","Mar"), matrix(c(3,9,5,1,-2,8), nrow = 2),

   list("green",12.3))

# Give names to the elements in the list.

names(list_data) <- c("1st Quarter", "A_Matrix", "A Inner list")

# Show the list.

print(list_data)

$`1st_Quarter

[1] "Jan" "Feb" "Mar"

$A_Matrix

     [,1] [,2] [,3]

[1,]    3    5   -2

[2,]    9    1    8

$A_Inner_list

$A_Inner_list[[1]]

[1] "green"

$A_Inner_list[[2]]

[1] 12.3

تابع
names(" ")
برای تخصیص نام به درایه های لیست به کار رفته و ماتریسی در درایه دوم تعریف کردیم که امروز اموزش داده میشود

@R_Experts

#آموزش_درخواستی_جدوال_توافقی

برای این کار از دو دستور

peg.tab

peg.df

استفاده میشود که ساختار کلی این دستور ها استفاده از ماتریس ها و لیست ها هست

ودر دستور دوم تابع

expand.gird()

هر یک از اعضای بردار ها را نظیر به نظیر به صورت جدولی مقابل هم قرار میدهد

#Example_1

> pag.tab <- matrix(c(762, 484, 327, 239, 468, 477), nrow=2)

> dimnames(pag.tab) <-list(Gender=c("Female","Male"),Party=c("Democrat","Independent","Republican"))

> pag.tab <- as.table(pag.tab)

> pag.tab

        Party

Gender   Democrat Independent Republican

  Female      762         327        468

  Male        484         239        477

> # Or

> pag.df <-expand.grid(Gender=c("Female","Male"),Party=c("Democrat","Independent","Republican"))

> pag.df

  Gender       Party

1 Female    Democrat

2   Male    Democrat

3 Female Independent

4   Male Independent

5 Female  Republican

6   Male  Republican

>

@R_Experts

#Example_1

par("bg=blue4")
plot(table(rpois(100, 5)), type = "h", col = "red", lwd = 10,
     main = "rpois(100, lambda = 5)")

در این مثال

type="h"

نوع نمودار به فرم هیستوگرامی را مشخص

col="red"

رنگ میله ها

lwd=10

پهنای میله ها

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

عنوان نمودار در بک گراند میباشد


@R_Experts

#Example _1

install.packages("lattice")
library(lattice)
attach(mtcars)

#create factors with value labels
gear.f<-factor(gear,levels=c(3,4,5),
   labels=c("3gears","4gears","5gears"))
cyl.f <-factor(cyl,levels=c(4,6,8),
   labels=c("4cyl","6cyl","8cyl"))

# kernel density plot
densityplot(~mpg,
   main="Density Plot",
   xlab="Miles per Gallon")

@R_Experts