R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

#LATIHAN 1
jml.penggemar<-c(4,5,6,1,4)
jml.penggemar
## [1] 4 5 6 1 4
jenis.film<-c("Komedi", "Aksi", "Roman", "Drama", "Fiksi")
jenis.film
## [1] "Komedi" "Aksi"   "Roman"  "Drama"  "Fiksi"
pie(jml.penggemar, labels=jenis.film, main="Diagram Lingkaran Penggemar Jenis Film")

buat.persen<-round(100*jml.penggemar/sum(jml.penggemar), 1)

pie(jml.penggemar, labels=paste0(buat.persen, "%"), main="Diagram Lingkaran Penggemar Jenis Film", col=rainbow(length(jml.penggemar)))
legend("topright", jenis.film, cex=0.8, fill=rainbow(length(jml.penggemar)))

#LATIHAN 2
df <- data.frame(
        jenis.film = c("caspian sea", "tanganyika", "baykal", "balkhash", "malawi", "superior", "michigan", "great slave", "aral sea", "winnipeg", "victoria", "erie", "huron", "ontario", "great bear"),
        benua = c("asia", "afrika", "asia", "asia", "afrika", "amerika utara", "amerika utara", "amerika utara", "asia", "amerika utara", "afrika", "amerika utara", "amerika utara", "amerika utara", "amerika utara"),
        panjang = c(760, 420, 395, 376, 360, 350, 307, 298, 280, 266, 250, 241, 206, 193, 192),
        lebar = c(530, 600, 620, 540, 560, 620, 450, 350, 420, 140, 320, 300, 260, 400, 210),
stringAsFactors = FALSE
)

print(df)
##     jenis.film         benua panjang lebar stringAsFactors
## 1  caspian sea          asia     760   530           FALSE
## 2   tanganyika        afrika     420   600           FALSE
## 3       baykal          asia     395   620           FALSE
## 4     balkhash          asia     376   540           FALSE
## 5       malawi        afrika     360   560           FALSE
## 6     superior amerika utara     350   620           FALSE
## 7     michigan amerika utara     307   450           FALSE
## 8  great slave amerika utara     298   350           FALSE
## 9     aral sea          asia     280   420           FALSE
## 10    winnipeg amerika utara     266   140           FALSE
## 11    victoria        afrika     250   320           FALSE
## 12        erie amerika utara     241   300           FALSE
## 13       huron amerika utara     206   260           FALSE
## 14     ontario amerika utara     193   400           FALSE
## 15  great bear amerika utara     192   210           FALSE
boxplot(x=df$panjang, data=df)

plot(x=df$panjang, y=df$lebar, data=df)
## Warning in plot.window(...): "data" is not a graphical parameter
## Warning in plot.xy(xy, type, ...): "data" is not a graphical parameter
## Warning in axis(side = side, at = at, labels = labels, ...): "data" is not a
## graphical parameter

## Warning in axis(side = side, at = at, labels = labels, ...): "data" is not a
## graphical parameter
## Warning in box(...): "data" is not a graphical parameter
## Warning in title(...): "data" is not a graphical parameter

barplot(df$panjang, names.arg=df$nama.danau)

summary(c(df$panjang, df$lebar))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   140.0   261.5   350.0   373.8   442.5   760.0

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.S