在rPubs

时间:2016-08-26 23:21:07

标签: r rstudio ggvis rpres

我制作了一个rpresenter文件。代码显示如下。当我在rPubs中发布时,会显示带有单词的幻灯片。但是不显示动态图表和其他图表,显示: AccessDeniedAccess Denied573371FF628EBE0CmrHb5GPTc + 1Ul1K15psqFpJ / f6dovc + frwQougDVtROA6ZQajWyye0Jr9CvH

我已经阅读了RStudio文档。我想知道如何正确显示图表。感谢您的期待。

 Presentation On Datasets
 ========================================================
 author: Harry
 date: 8/27/2016
 autosize: true


 Selecting The Data
  ========================================================

 ### We will select the diamonds dataset available in package 'ggplot2'.       
 Lets look at the data.

 ```{r}
 library(ggplot2)
 head(diamonds)
 ```

 Summary Of Data
 ========================================================


  ### Lets view the summary of data

  ```{r}
  library(ggplot2)
  summary(diamonds)

   ```


   Charts
  ========================================================

  ### Lets display some charts.

   ```{r results = 'asis', comment = NA}
   library(rCharts)
   library(ggplot2)

   n1 <- nPlot(carat ~ cut , group = "color", data = diamonds[1:40,], type =   "multiBarChart")
  n1

  ```


  Plot
  =============================================================

  ### Plotting Chart from economics dataset

  ```{r results = 'asis', comment = NA}
  library(rCharts)
  data(economics, package = 'ggplot2')
  econ <- transform(economics, date = as.character(date))
  m1 <- mPlot(x = 'date', y = c('psavert', 'uempmed'), type = 'Line',data = econ)
  m1$set(pointSize = 0, lineWidth = 1)
  m1

  ```

 Plot
 ============================================================

   ### Lets plot some Geographical Data

   ```{r gvisMergeExample, results='asis', echo=FALSE}
   library(googleVis)
   Geo <- gvisGeoChart(Exports, locationvar='Country', colorvar='Profit',
                 options=list(height=300, width=350))
   Tbl <- gvisTable(Exports, options=list(height=300, width=200))
   plot(gvisMerge(Geo, Tbl, horizontal=TRUE))

   ```

   Plot
   =========================================

  ### Lets plot Fruit vs Year

  ```{r MotionChartExample, results='asis', tidy=FALSE}
  library(googleVis)
  M <- gvisMotionChart(Fruits, 'Fruit', 'Year', options=list(width=400,      height=350))
  plot(M)

  ```

0 个答案:

没有答案