用R语言散点图（包括简单散点图、高密度散点图、三维散点图、气泡图）、折线图。

好的，这里为您提供一些R语言绘制散点图和折线图的代码示例。

首先，我们需要准备一些数据，以便绘制图形。在这里，我将使用R中自带的mtcars数据集作为示例数据。

data(mtcars)

## 简单散点图

下面是绘制简单散点图的示例代码：

plot(mpg ~ wt, data = mtcars)

这将绘制出mtcars数据集中mpg和wt两个变量之间的散点图。其中，mpg表示汽车的燃油效率，wt表示汽车的重量。

## 高密度散点图

下面是绘制高密度散点图的示例代码：

library(ggplot2)
ggplot(mtcars, aes(x = wt, y = mpg)) + geom_density2d()

这将绘制出mtcars数据集中mpg和wt两个变量之间的高密度散点图。其中，ggplot2是一个非常流行的图形库，geom_density2d()函数可以帮助我们绘制高密度散点图。

## 三维散点图

下面是绘制三维散点图的示例代码：

library(plotly)
plot_ly(mtcars, x = ~wt, y = ~mpg, z = ~cyl, type = "scatter3d", mode = "markers")

这将绘制出mtcars数据集中mpg、wt和cyl三个变量之间的三维散点图。其中，plotly是一个非常流行的交互式图形库，可以帮助我们绘制高质量的三维图形。

## 气泡图

下面是绘制气泡图的示例代码：

ggplot(mtcars, aes(x = wt, y = mpg, size = cyl)) + geom_point()

这将绘制出mtcars数据集中mpg和wt两个变量之间的气泡图。其中，cyl变量的值用来控制气泡的大小。

## 折线图

下面是绘制折线图的示例代码：

plot(mtcars$wt, type = "l", col = "blue", ylim = c(0, 7))
lines(mtcars$mpg, type = "l", col = "red")
legend("topright", legend = c("wt", "mpg"), col = c("blue", "red"), lty = 1)

这将绘制出mtcars数据集中mpg和wt两个变量之间的折线图。其中，wt变量用蓝色表示，mpg变量用红色表示。legend()函数可以帮助我们添加图例。