### <code r>
### dados fictícios!
df <- data.frame(UF=rep(c("AC","AL","AM"), each=4), ano=rep(2003:2006, 3), V1=rnorm(12), V2=rnorm(12))
df
### criando rownames únicos a partir dos dados...
rownames(df) <- paste0(df$UF, df$ano)
df
PCA <- prcomp(df[3:4],scale=T) ### informar as variáveis númericas
hc <- hclust(dist(df[3:4]), method='ward.D')