ggplot 滑珠散点图示例代码
时间: 2023-08-24 20:04:53 浏览: 56
以下是 ggplot 滑珠散点图的示例代码:
```
library(ggplot2)
# 样本数据
data <- data.frame(x = rnorm(50), y = rnorm(50))
# 绘制散点图
ggplot(data, aes(x, y)) +
geom_point() +
# 添加滑珠
geom_point(aes(x = x, y = y), color = "blue", size = 5, alpha = 0.3) +
# 添加趋势线
geom_smooth(method = "lm", se = FALSE) +
# 设置x轴和y轴标签
xlab("X轴") + ylab("Y轴") +
# 设置图表标题
ggtitle("滑珠散点图")
```
相关问题
echarts折线图示例代码
我可以回答这个问题。以下是一个 echarts 折线图的示例代码:
```
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>ECharts 折线图示例</title>
<!-- 引入 echarts.js -->
<script src="https://cdn.jsdelivr.net/npm/echarts/dist/echarts.min.js"></script>
</head>
<body>
<!-- 为 echarts 准备一个具备大小(宽高)的 DOM -->
<div id="main" style="width: 600px;height:400px;"></div>
<script type="text/javascript">
// 基于准备好的dom,初始化echarts实例
var myChart = echarts.init(document.getElementById('main'));
// 指定图表的配置项和数据
var option = {
title: {
text: '折线图示例'
},
tooltip: {},
legend: {
data:['销量']
},
xAxis: {
data: ["周一","周二","周三","周四","周五","周六","周日"]
},
yAxis: {},
series: [{
name: '销量',
type: 'line',
data: [5, 20, 36, 10, 10, 20, 5]
}]
};
// 使用刚指定的配置项和数据显示图表。
myChart.setOption(option);
</script>
</body>
</html>
```
ggplot画散点图
要使用ggplot来画散点图,你需要首先导入ggplot2库,并创建一个数据集,其中包含横坐标和纵坐标的值。然后,使用ggplot函数来指定数据集和横纵坐标的变量。接下来,使用geom_point函数告诉ggplot要画散点图。下面是一个绘制散点图的示例代码:
```R
# 导入ggplot2库
library(ggplot2)
# 创建数据集
x <- seq(1, 100, length = 100)
y <- rnorm(100, mean = 0, sd = 1)
data <- data.frame(x = x, y = y)
# 绘制散点图
ggplot(data, aes(x = x, y = y)) +
geom_point()
```
在这个示例中,我们使用了一个名为data的数据框作为数据集,横坐标为x,纵坐标为y。然后,使用ggplot函数指定数据集和横纵坐标的变量。最后,使用geom_point函数画出散点图。你可以根据需要修改数据集和其他参数来自定义你的散点图。