จะตั้งชื่อตัวแปรได้อย่างไร?

สามารถสร้างชื่อตัวแปรใหม่ได้ทันทีหรือไม่?

ฉันต้องการอ่าน data frames จากรายการไปยังตัวแปรใหม่พร้อมตัวเลขต่อท้าย บางอย่างเช่น orca1, orca2, orca3 ...

ถ้าลองของชอบ

paste("orca",i,sep="")=list_name[[i]]

ฉันได้รับข้อผิดพลาดนี้

target of assignment expands to non-language object

มีวิธีอื่นอีกไหม

ใช้assign:

assign(paste("orca", i, sep = ""), list_name[[i]])

มันดูเหมือนว่าฉันว่าคุณอาจจะดีกว่ากับรายการแทนที่จะใช้orca1, orca2ฯลฯ ... แล้วมันจะเป็นorca[1], orca[2]...

โดยปกติคุณจะสร้างรายการตัวแปรที่แตกต่างโดยไม่มีอะไรเลยนอกจากตัวเลขเพราะตัวเลขนั้นจะเป็นวิธีที่สะดวกในการเข้าถึงในภายหลัง

orca <- list()
orca[1] <- "Hi"
orca[2] <- 59

มิฉะนั้นassignเป็นเพียงสิ่งที่คุณต้องการ

อย่าสร้างกรอบข้อมูล เก็บรายการตั้งชื่อองค์ประกอบ แต่ไม่แนบ

เหตุผลที่ใหญ่ที่สุดคือถ้าคุณสร้างตัวแปรในระหว่างการเดินทางเกือบตลอดเวลาในภายหลังคุณจะต้องวนซ้ำแต่ละตัวแปรเพื่อทำสิ่งที่เป็นประโยชน์ ที่นั่นอีกครั้งคุณจะถูกบังคับให้ทวนชื่อแต่ละชื่อที่คุณสร้างขึ้นทันที

มันง่ายกว่ามากในการตั้งชื่อองค์ประกอบของรายการและทำซ้ำตามชื่อ

เท่าที่เกี่ยวข้องกับสิ่งที่แนบมาการฝึกเขียนโปรแกรมใน R ที่แย่มากและอาจทำให้เกิดปัญหามากมายหากคุณไม่ระวัง

คำถามที่พบบ่อยกล่าวว่า:

ถ้าคุณมี

varname <- c("a", "b", "d")

คุณทำได้

get(varname[1]) + 2

สำหรับ

a + 2

หรือ

assign(varname[1], 2 + 2)

สำหรับ

a <- 2 + 2

ดูเหมือนว่าคุณจะใช้ GET เมื่อคุณต้องการประเมินสูตรที่ใช้ตัวแปร (เช่นการเรียงต่อกัน) และ ASSIGN เมื่อคุณต้องการกำหนดค่าให้กับตัวแปรที่ประกาศไว้ล่วงหน้า

ไวยากรณ์สำหรับการกำหนด: กำหนด (x, ค่า)

x:ชื่อตัวแปรที่กำหนดเป็นสตริงอักขระ ไม่มีการบีบบังคับใด ๆ และจะใช้องค์ประกอบแรกของเวกเตอร์อักขระที่มีความยาวมากกว่าหนึ่งพร้อมคำเตือน

value:ค่าที่จะกำหนดให้กับ x

อีกวิธีหนึ่งที่ยุ่งยากคือการตั้งชื่อองค์ประกอบของรายการและattach:

list_name = list(
    head(iris),
    head(swiss),
    head(airquality)
    )

names(list_name) <- paste("orca", seq_along(list_name), sep="")
attach(list_name)

orca1
#   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1          5.1         3.5          1.4         0.2  setosa
# 2          4.9         3.0          1.4         0.2  setosa
# 3          4.7         3.2          1.3         0.2  setosa
# 4          4.6         3.1          1.5         0.2  setosa
# 5          5.0         3.6          1.4         0.2  setosa
# 6          5.4         3.9          1.7         0.4  setosa

และตัวเลือกนี้?

list_name<-list()
for(i in 1:100){
    paste("orca",i,sep="")->list_name[[i]]
}

มันทำงานได้อย่างสมบูรณ์ ในตัวอย่างที่คุณใส่บรรทัดแรกขาดหายไปจากนั้นจะแสดงข้อความแสดงข้อผิดพลาด