Knitr arsa

Ben .md ve .html dosyaların son verme ile sorun yaşıyorum sadece yarısını üretir.Knitr arsa

Aynı R betiği doğru çizim oluşturur. lattice ve ggplot2 sistemlerini denedim. Aynı şey: Rstudio (Mac) içinde doğrudur ve .md ve .html'da 1 yüzü kaybeder. R-komut dosyası tarafından üretilen

library(lattice) 
xyplot(steps ~ interval | day_type, data = mean_tsd_final, layout = c(1, 2), 
     type="l", xlab = "Interval", ylab = "Number of steps") 

> str(mean_tsd_final) 
'data.frame': 576 obs. of 3 variables: 
$ interval: int 0 5 10 15 20 25 30 35 40 45 ... 
$ day_type: Factor w/ 2 levels "weekday","weekend": 1 1 1 1 1 1 1 1 1 1 ... 
$ steps : num 2.251 0.445 0.173 0.198 0.099 ...

aynı kod tarafından üretilen

Produced by R-script

knitr

Yani Produced by the same code by knitr

kaynak

2016-04-03 Dimak

Soruya eklendi, thx! – Dimak

Evet, demek istediğim 'mean_tsd_final' ama sen aldın. Ayrıca, verilerinizi girmemize yardımcı olduğundan, 'str' yerine bir "dput" anlamına da geldim. Ama str'den, knitr’de çizim yaparken bir alt kümeniz olduğunu tahmin ediyorum - 'day_type'ın iki seviyeli bir faktör olduğunu görüyorsun, ancak iki seviyeli bir faktöre sahip olduğunuzda bu çizimi çoğaltabilirim. – rawr

Verilerinde bir seviye var. Her iki faktör de sunulur ... – Dimak

tarafından, cevap: Kod yerel tercihlerini ayarlamak için:

## To set it in english 
Sys.setlocale("LC_TIME","en_US.UTF-8")

Önemli, çünkü faktör değişkenlerini üretmek için dizi karşılaştırması kullanıyoruz. o dizeleri karşılaştırır neden ifelse işlevi üretilen günlerin yerel adlarıyla birlikte, "Cumartesi" ve "Pazar", "hafta içi" sadece 1 seviye üretmek overriden yerel ayarlar olmadan

##Adding column with type of the day 
Activity_data_filled$day_type <- weekdays(as.Date(Activity_data_filled$date)) 
Activity_data_filled$day_type <- ifelse(Activity_data_filled$day_type %in% c("Saturday", "Sunday"),"weekend", "weekday") 
Activity_data_filled$day_type <-as.factor(Activity_data_filled$day_type) 

##Aggegating by type of the day and time intervals 
mean_tsd_final <- aggregate(Activity_data_filled$steps, 
         by=list(Activity_data_filled$interval, 
           Activity_data_filled$day_type),mean)

: Burada making mean_td_final veri çerçevesi kodudur weekdays işleviyle. (Rusça, benim durumumda).

kaynak

2016-04-03 17:31:09 Dimak

cevap

İlgili konular