ley de temperatura de newton

# Aquí pega el código proporcionado
datos <- data.frame(
  Tiempo = c(0, 3, 6, 9),
  Temperatura = c(85, 74, 68, 65)
)

print(datos)

##   Tiempo Temperatura
## 1      0          85
## 2      3          74
## 3      6          68
## 4      9          65

library(ggplot2)

ggplot(datos, aes(x = Tiempo, y = Temperatura)) +
  geom_line(color = "blue") +
  geom_point(size = 3, color = "red") +
  labs(
    title = "Cambio de Temperatura con el Tiempo",
    x = "Tiempo (minutos)",
    y = "Temperatura (°C)"
  ) +
  theme_minimal()