r语言画出对数似然函数图像

可以使用以下代码在R语言中画出对数似然函数图像：

假设有一个数据集 `data`，其中 `y` 是响应变量，`x` 是自变量，模型为线性回归模型：

# 构造数据集
set.seed(123)
x <- rnorm(100)
y <- 2*x + rnorm(100)

# 定义线性回归模型
lin_reg <- function(beta0, beta1, x) {
  beta0 + beta1*x
}

# 定义对数似然函数
log_likelihood <- function(beta0, beta1, x, y) {
  mu <- lin_reg(beta0, beta1, x)
  -sum(dnorm(y, mean = mu, sd = 1, log = TRUE))
}

# 画出对数似然函数图像
library(ggplot2)
ggplot() +
  stat_function(fun = function(beta1) log_likelihood(0, beta1, x, y), 
                aes(x = c(-4, 4))) +
  labs(title = "对数似然函数图像", x = "beta1", y = "log_likelihood")

这段代码会生成一个对数似然函数图像，其中 `x` 轴为 `beta1`，`y` 轴为对数似然函数的值。