Getting Started with RPubs

RStudio lets you harness the power of R Markdown to create documents that weave together your writing and the output of your R code. And now, with RPubs, you can publish those documents on the web with the click of a button!

Prerequisites

You’ll need R itself, RStudio (v0.96.230 or later), and the knitr package (v0.5 or later).

Instructions

1. In RStudio, create a new R Markdown document by choosing File | New | R Markdown.
2. Click the Knit HTML button in the doc toolbar to preview your document.
3. In the preview window, click the Publish button

我的上传网址 https://rpubs.com/czliutz

x<-read.delim("C:/Users/liutz/Documents/101名健康女职工血清总胆固醇测量结果.txt")
head(x)
#y<-as.numeric(x)
#错误: 'list' object cannot be coerced to type 'double'
y<-as.numeric(unlist(x))
write.csv(y,file="data.csv")
hist(y,breaks=12,main="直方图")

https://www.statmethods.net

数据营 https://www.datacamp.com/

#if for matrix

i<-10
i
y<-if (i<5){3} else {10}
y

for(i in 1:10){
+ print(i*i)
}

x<-matrix(1:30,nrow=5)
x
for(i in seq_len(nrow(x))){
     for (j in seq_len(ncol(x))){
     print(x[i,j]);
    }
  print(rep(i,nrow(x)))
} 

```{r}
par(mfrow=c(2,2))
slice<-c(10,12,4,16,8)
lbls <- c("US","UK","Australia","Germany","France")
pie(slice,labels = lbls,main = "Simple Pie Chart")
pct <- round(slice/sum(slice)*100)
lbls2 <- paste(lbls,' ',pct,"%",sep = " ")
pie(slice,labels = lbls2,col=rainbow(length(lbls2)),main = "Pie Chart with Percentages")

library(plotrix)
pie3D(slice,labels=lbls,explode=0.1,main="3D Pie Chart")

mytable <- table(state.region)
lbls3 <- paste(names(mytable),"\n",mytable,sep=" ")
pie(mytable,labels = lbls3,main = "Pie Chart from a table\n (with sample size)")

```

help(package='datasets')

查看数据集帮助

data()

访问数据集 前面为数据集名字，后面介绍数据集的内容，包含了R所有用到的数据类型（向量，矩阵，列表，因子，数据框，时间序列等）。 直接输入数据集的名字就可以输出数据： 这些数据集的名字都是内置的，一般在给变量命名时最好避免重复，否则数据集会被置换掉。

help("mtcars")

查看具体数据集的信息 列出R扩展包加载扩展包中的数据集

data(package="MASS")

显示R中所有可用数据集

data(package=.packages(all.available = TRUE))

如果不想加载R包但想加载其中的数据集，直接使用data函数加载数据集 eg

data(Chile,package="car")
Chile

https://www.cnblogs.com/jpld/p/4594003.html

---
title: "R Notebook"
output: html_notebook
---


```{r}
library(tidyverse)
starwars %>%
select(sex,height,mass,species) %>%
  mutate(height=height/100)  %>%
  filter(species =="Human")  %>%
  group_by(sex) %>%
  summarise( mean(height,na.rm = TRUE))

```