-
Notifications
You must be signed in to change notification settings - Fork 0
/
oyunlar2.R
37 lines (26 loc) · 907 Bytes
/
oyunlar2.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
table(done$`Bitirme Tarihi`)
ratio <- prop.table(table(done$`Bitirme Tarihi`)) #proportion of table
yıllar <- unique(done$`Bitirme Tarihi`)
yıllar <- sort(yıllar)
t <- sprintf("%s yılında %s%3.1f" , yıllar, "%" ,as.numeric(ratio)*100 )
pie(ratio ,
main = "Bitirdiğim oyunların ne kadarını ne zaman bitirdim" ,
labels = t ,
radius = 1)
# Ne kadar oyun bitirdim
z <- table(done$`Bitirme Tarihi`)
c <- sprintf("%s yılında %3.0f tane" , yıllar , z )
pie(z ,
main = "Bu yıl kaç oyun bitirdim" ,
labels = c)
# Oyunları nerede dbitirdim
platform <- unique(done$`Oynadığım platform:`)
platform <- replace(platform , "Nintendo Ds Lite" , "NDS")
platform <- sort(platform)
x <- table(done$`Oynadığım platform:`)
pl <- sprintf("%s tanesi %s" , x , platform)
pie(x ,
labels = pl ,
main = "Nerede oynadım" ,
radius = 1)
View(platform)