With this code. How to achieve to have xyplot() from lattice package (installed dont have to put it to the code) that shows 9 different bond maturities (shown and colnames in colnames(df) code) on X axis and on Y-xis there will be corresponding yield from the 4 companies.

GCP <- read.csv("company1")
VNA <- read.csv("company2")
LEG <- read.csv("company3")
TAG <- read.csv("company4")
Subset the data to include only the second row (latest date)

GCP_subset <- GCP[2,]
VNA_subset <- VNA[2,]
LEG_subset <- LEG[2,]
TAG_subset <- TAG[2,]
Combine the data frames into a single data frame

df <- rbind(GCP_subset, VNA_subset, LEG_subset, TAG_subset)
Set the column names for the X-axis

colnames(df) <- c("Date","X2024","X2025","X2026","X2027","X2028","X2029","X2033", "PERP1", "PERP2", "PERP3")
Plot the scatterplot using xyplot()

#xyplot() left
 Please use JSON format in your answer.
user