# Prepare data
dat1 <- mtcars
dat2 <- mtcars
# Set labels for dat1
labels(dat1) <- list(mpg = "Miles Per Gallon",
cyl = "Cylinders",
disp = "Displacement")
# Copy labels from dat1 to dat2
dat2 <- copy.attributes(dat1, dat2)
# View results
labels(dat2)
# $mpg
# [1] "Miles Per Gallon"
#
# $cyl
# [1] "Cylinders"
#
# $disp
# [1] "Displacement"
Run the code above in your browser using DataLab