---

title: “Untitled” output: html_document date: “2025-04-18”

# Libraries
library(ggplot2)

# Create data
data <- data.frame(x=seq(1,30), y=abs(rnorm(30)))
 
# Plot
ggplot(data, aes(x=x, y=y)) +
  geom_point() + 
  geom_segment( aes(x=x, xend=x, y=0, yend=y))

Data <- read.csv(“D:/table1_1.csv”) Data3 <- read.table(“D:/table1_1.csv”.txt”, header = TRUE, fileEncoding = “UTF-16LE”) mean(Data3$Height) stem(data)