2017-09-10 2 views
-1

Je voudrais faire une démarque avec un code r, mais il dit sans code à chaque fois, donc dans le fichier de démarque, il y a juste mon code et mon texte. De plus, la structure du code n'est pas respectée. Savez-vous pourquoi cela ne fonctionne pas? Je n'ai pas trouvé de réponse ...markdown ne fonctionne pas dans R

> ```{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE) ``` 
> 
> # Assignment 
> 
> ## First question 
> 
> We read the dataset in "data" and we make the column "date" as date 
> format 
> 
> '''{r} data<-read.csv(file="activity.csv",header=TRUE) 
> data$date<-as.Date(as.character(data$date),"%Y-%m-%d") ''' 
> 
> ## Second question 
> 
> Histogram of the total number of steps taken each day 
> 
> '''{r} library("ggplot2") 
> perday<-aggregate(data$steps,list(Date=data$date),sum) 
> qplot(perday$x,main="Histogram of the total number of steps taken each 
> day",xlab="Number of steps") ''' 

Il a fait la même sortie que ci-dessus.

Je ne comprends pas pourquoi ...

+0

Lorsque code d'intégration, assurez-vous que vous utilisez la citation de retour (') au lieu de guillemets simples ('). Voir la section 5 ci-dessous: https://www.rstudio.com/wp-content/uploads/2015/02/rmarkdown-cheatsheet.pdf –

+0

merci pour le document, il vous sera utile –

Répondre

2

Le problème dans votre code lorsque vous créez le morceau de code. il devrait ressembler à ceci:

```{r} 
# your code here 
``` 

avec backquote `(Ctrl + Alt + 7 ou AltGr + 7 sur les fenêtres) et non simple citation '

La meilleure façon de créer Rmarkdown est d'utiliser rstudio et de l'utilisation le bouton ou le raccourci clavier pour insérer un morceau. c'est Ctrl + Alt + i sur Windows.

Votre code correct doit être

```{r setup, include=FALSE} 
knitr::opts_chunk$set(echo = TRUE) 
``` 

# Assignment 

## First question 

We read the dataset in "data" and we make the column "date" as date format 

```{r} 
data<-read.csv(file="activity.csv",header=TRUE) 
data$date<-as.Date(as.character(data$date),"%Y-%m-%d" 
``` 

## Second question 

Histogram of the total number of steps taken each day 

```{r} 
library("ggplot2") 
perday<-aggregate(data$steps,list(Date=data$date),sum) 
qplot(perday$x,main="Histogram of the total number of steps taken each 
day",xlab="Number of steps") 
```