แปลงแถวของกรอบข้อมูลเป็นเวกเตอร์

ฉันต้องการสร้างเวกเตอร์จากแถวของกรอบข้อมูล แต่ฉันไม่ต้องการที่จะต้องมีชื่อแถวและคอลัมน์ ฉันลองหลายอย่าง ... แต่ไม่มีโชค

นี่คือกรอบข้อมูลของฉัน:

> df <- data.frame(a=c(1,2,4,2),b=c(2,6,2,1),c=c(2.6,8.2,7.5,3))
> df
  a b   c
1 1 2 2.6
2 2 6 8.2
3 4 2 7.5
4 2 1 3.0

ฉันเหนื่อย:

> newV <- as.vector(df[1,])
> newV
  a b   c
1 1 2 2.6

แต่ฉันต้องการบางอย่างที่มีลักษณะเช่นนี้:

> newV <- c( 1,2,2.6)
> newV
[1] 1.0 2.0 2.6

เมื่อคุณแยกแถวเดียวจากกรอบข้อมูลคุณจะได้รับกรอบข้อมูลหนึ่งแถว แปลงเป็นเวกเตอร์ตัวเลข:

as.numeric(df[1,])

ตามที่ @Roland แนะนำunlist(df[1,])จะแปลง data frame แบบแถวเดียวเป็นเวกเตอร์ตัวเลขโดยไม่ต้องทิ้งชื่อ ดังนั้นจึงunname(unlist(df[1,]))เป็นอีกวิธีหนึ่งที่ชัดเจนกว่าเล็กน้อยเพื่อให้ได้ผลลัพธ์เดียวกัน

ตามที่ @Josh แสดงความคิดเห็นด้านล่างหากคุณมีกรอบข้อมูลที่ไม่ใช่ตัวเลข (ตัวอักษร, ตัวประกอบ, ผสม ... ) คุณต้องas.character(df[1,])ใช้แทน

ฉันขอแนะนำunlistซึ่งเก็บชื่อไว้

unlist(df[1,])
  a   b   c 
1.0 2.0 2.6 

is.vector(unlist(df[1,]))
[1] TRUE

หากคุณไม่ต้องการเวกเตอร์ที่มีชื่อ:

unname(unlist(df[1,]))
[1] 1.0 2.0 2.6

หากคุณไม่ต้องการเปลี่ยนเป็นตัวเลขคุณสามารถลองสิ่งนี้ได้

> as.vector(t(df)[,1])
[1] 1.0 2.0 2.6

นี่คือdplyrตัวเลือกตาม:

newV = df %>% slice(1) %>% unlist(use.names = FALSE)

# or slightly different:
newV = df %>% slice(1) %>% unlist() %>% unname()

โปรดทราบว่าคุณต้องระวังหากแถวของคุณมีปัจจัย นี่คือตัวอย่าง:

df_1 = data.frame(V1 = factor(11:15),
                  V2 = 21:25)
df_1[1,] %>% as.numeric() # you expect 11 21 but it returns 
[1] 1 21

นี่คืออีกตัวอย่างหนึ่ง (โดยค่าเริ่มต้น data.frame () แปลงอักขระเป็นตัวประกอบ)

df_2 = data.frame(V1 = letters[1:5],
                  V2 = 1:5)
df_2[3,] %>% as.numeric() # you expect to obtain c 3 but it returns
[1] 3 3
df_2[3,] %>% as.character() # this won't work neither
[1] "3" "3"

เพื่อป้องกันพฤติกรรมนี้คุณต้องดูแลปัจจัยก่อนที่จะแยกออก:

df_1$V1 = df_1$V1 %>% as.character() %>% as.numeric()
df_2$V1 = df_2$V1 %>% as.character()
df_1[1,] %>% as.numeric()
[1] 11  21
df_2[3,] %>% as.character()
[1] "c" "3"

คอลัมน์ของเฟรมข้อมูลเป็นเวกเตอร์อยู่แล้วคุณเพียงแค่ดึงออกมา โปรดทราบว่าคุณวางคอลัมน์ที่คุณต้องการไว้หลังเครื่องหมายจุลภาคไม่ใช่ข้างหน้า:

> newV <- df[,1]
> newV
[1] 1 2 4 2

ถ้าคุณต้องการแถวจริงๆให้ทำตามที่ Ben พูดและกรุณาใช้คำให้ถูกต้องในอนาคต