1 HELLO

1.1 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.1

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:

我有210个苹果

summary(iris)
##   Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
##  Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
##  1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
##  Median :5.800   Median :3.000   Median :4.350   Median :1.300  
##  Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
##  3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
##  Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  
##        Species  
##  setosa    :50  
##  versicolor:50  
##  virginica :50  
##                 
##                 
## 
library(maptools)
## Warning: package 'maptools' was built under R version 3.2.5
## Loading required package: sp
## Warning: package 'sp' was built under R version 3.2.5
## Checking rgeos availability: FALSE
##      Note: when rgeos is not available, polygon geometry     computations in maptools depend on gpclib,
##      which has a restricted licence. It is disabled by default;
##      to enable gpclib, type gpclibPermit()
library(leaflet)
## Warning: package 'leaflet' was built under R version 3.2.5
x=readShapePoly('bou2_4p.shp')
m=leaflet(x)%>% addTiles()
setView(m,116.23,39.54,zoom=5)

现在已经完成了 iris

1.2 Including Plots

You can also embed plots, for example:

plot(pressure)

现在已经完成了 pressure

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

library(DT)
load("C://Users//Administrator//Documents//futures//合并用户数据4.dat")
load("C://Users//Administrator//Documents//futures//合并用户数据5.dat")
load("C://Users//Administrator//Documents//futures//合并用户数据6.dat")
datatable(data1, options = list(pageLength = 10))

现在已经完成了 output

  1. 等等↩