Ostrzeżenia cbind: nazwy wierszy zostały znalezione z krótkiej zmiennej i zostały usunięte

Question

Mam poniżej linii kodu dla cbind, ale dostaję komunikat ostrzegawczy za każdym razem. Chociaż kod nadal działa tak, jak być powinien, czy istnieje sposób na rozwiązanie ostrzeżenia?

dateset = subset(all_data[,c("VAR1","VAR2","VAR3","VAR4","VAR5","RATE1","RATE2","RATE3")]) 
dateset = cbind(dateset[c(1,2,3,4,5)],stack(dateset[,-c(1,2,3,4,5)])) 

Ostrzeżenia:

Warning message: 
    In data.frame(..., check.names = FALSE) : 
     row names were found from a short variable and have been discarded 

Z góry dzięki!

Answer 1

Zgaduję swoją data.frame ma row.names:

A <- data.frame(a = c("A", "B", "C"), 
       b = c(1, 2, 3), 
       c = c(4, 5, 6), 
       row.names=c("A", "B", "C")) 

cbind(A[1], stack(A[-1])) 
# a values ind 
# 1 A  1 b 
# 2 B  2 b 
# 3 C  3 b 
# 4 A  4 c 
# 5 B  5 c 
# 6 C  6 c 
# Warning message: 
# In data.frame(..., check.names = FALSE) : 
# row names were found from a short variable and have been discarded 

---

Co tu się dzieje jest to, że ponieważ nie można domyślnie są powielane row.names w data.frame a ponieważ nie mów na R każdy punkt, który powtarza kod row.names, gdy przetwarza pierwszą kolumnę na taką samą liczbę rzędów kolumn, R po prostu odrzuca row.names.

Porównaj z podobnym data.frame, ale bez row.names:

B <- data.frame(a = c("A", "B", "C"), 
       b = c(1, 2, 3), 
       c = c(4, 5, 6)) 

cbind(B[1], stack(B[-1])) 
# a values ind 
# 1 A  1 b 
# 2 B  2 b 
# 3 C  3 b 
# 4 A  4 c 
# 5 B  5 c 
# 6 C  6 c 

---

Alternatywnie, można ustawić row.names = NULL w wyciągu cbind:

cbind(A[1], stack(A[-1]), row.names = NULL) 
# a values ind 
# 1 A  1 b 
# 2 B  2 b 
# 3 C  3 b 
# 4 A  4 c 
# 5 B  5 c 
# 6 C  6 c 

---

Jeśli oryginalny row.names są ważne, ty c a także dodaj je ponownie: z:

cbind(rn = rownames(A), A[1], stack(A[-1]), row.names = NULL) 
# rn a values ind 
# 1 A A  1 b 
# 2 B B  2 b 
# 3 C C  3 b 
# 4 A A  4 c 
# 5 B B  5 c 
# 6 C C  6 c