R: variable labels

# Get access to variable labels

> attr(apgar$g2_id,"label")

[1] "G2 SUBJECT ID"

> g2_id_lab <- attr(apgar$g2_id,"label")

> g2_id_lab

[1] "G2 SUBJECT ID"

# Set variable labels

> attr(apgar$g2_id,"label") <- "G2 Subject Identifier"

> str(apgar$g2_id)

 atomic [1:2526] 1e+06 1e+06 1e+06 1e+06 1e+06 ...

 - attr(*, "label")= chr "G2 Subject Identifier"

 - attr(*, "format.stata")= chr "%12.0g"