请给我一些R语言示例
时间: 2023-07-27 11:15:36 浏览: 44
好的,以下是一些R语言示例,供您参考:
1. 绘制直方图:
```
# 生成一组随机数
data <- rnorm(1000, 0, 1)
# 绘制直方图
hist(data, main = "Histogram of Data", xlab = "Value", ylab = "Frequency", col = "skyblue")
```
2. 绘制箱线图:
```
# 生成三组随机数
data1 <- rnorm(100, 0, 1)
data2 <- rnorm(100, 1, 1)
data3 <- rnorm(100, 2, 1)
# 合并数据
data <- c(data1, data2, data3)
group <- c(rep("Group 1", 100), rep("Group 2", 100), rep("Group 3", 100))
# 绘制箱线图
boxplot(data ~ group, main = "Boxplot of Data by Group", xlab = "Group", ylab = "Value", col = "skyblue")
```
3. 绘制散点图:
```
# 生成两组随机数
x <- rnorm(50, 0, 1)
y <- rnorm(50, 0, 1)
# 绘制散点图
plot(x, y, main = "Scatterplot of Data", xlab = "X", ylab = "Y", col = "skyblue")
```
4. 绘制回归分析图:
```
# 生成两组随机数
x <- rnorm(50, 0, 1)
y <- 2*x + rnorm(50, 0, 0.5)
# 进行线性回归分析
fit <- lm(y ~ x)
# 绘制回归分析图
plot(x, y, main = "Scatterplot and Regression Line", xlab = "X", ylab = "Y", col = "skyblue")
abline(fit, col = "red")
```
5. 进行多元回归分析:
```
# 生成多组随机数
price <- rnorm(100, 100, 10)
competitor <- rnorm(100, 90, 10)
quality <- sample(0:1, 100, replace = TRUE)
size <- sample(0:1, 100, replace = TRUE)
cost <- sample(0:2, 100, replace = TRUE)
factor_level <- sample(0:1, 100, replace = TRUE)
scale <- sample(0:1, 100, replace = TRUE)
# 合并数据
data <- data.frame(price, competitor, quality, size, cost, factor_level, scale)
# 进行多元回归分析
fit <- lm(price ~ competitor + quality + size + cost + factor_level + scale, data = data)
summary(fit)
```
以上是一些简单的R语言示例,希望能够帮助您更好地了解R语言的使用。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)