एकाधिक ग्राफ शीर्षक बनाने के लिए "द्वारा" का उपयोग

Question

मैं एक या दो समूह चर का उपयोग करके कई उपग्राफ बनाने के लिए "के लिए" के "द्वारा" उपयोग करने का प्रयास कर रहा हूं। दोनों समूह चर एक कारक चर हैं (सेक्स एक डमी है और पिता की सामाजिक स्थिति में कई स्तर हैं)। मैं किंवदंती या ग्राफ के शीर्षक में समूह का स्तर (उर्फ नाम) कैसे जोड़ सकता हूं?

यह वह कोड है जिसका मैं उपयोग कर रहा हूं।

library(TraMineR) 
library(Hmisc) 
data(biofam) 
biofam.lab <- c("Parent", "Left", "Married", "Left+Marr", 
      "Child", "Left+Child", "Left+Marr+Child", "Divorced") 
biofam.seq <- seqdef(biofam, 10:25, labels=biofam.lab) 

class(biofam$sex) 
levels(biofam$sex) 
describe(biofam$sex) 

class(biofam$cspfaj) 
levels(biofam$cspfaj) 
describe(biofam$cspfaj) 

### Simple plots 
seqdplot(biofam.seq) 
seqdplot(biofam.seq, group=biofam$sex, title="Marital status by gender") 

### Plot with automatic title using "by" 
by(biofam.seq, biofam$sex, function(X) seqdplot(X, title="X$sex[1]")) 
by(biofam.seq, biofam$sex, function(X) seqdplot(X, title=X$sex[1])) 

### Plot with automatic title and multiple-grouping using "for" 
for(n in c(1, 2, 3)) { 
    seqdplot(subset(biofam.seq, subset=biofam$cspfaj==(n)), title="(n)") 
} 
for(n in c(1, 2, 3)) { 
    seqdplot(subset(biofam.seq, subset=biofam$cspfaj==(n)), group=biofam$sex, title="(n)") 
} 

Answer 1

seqdplot समारोह यह आप के लिए स्वचालित रूप से कर सकते हैं समूह तर्क का उपयोग:

seqdplot(seqobject, group=data.frame$group) 

जहां seqobject seqdef फ़ंक्शन के साथ बनाई गई वस्तु है।

Answer 2

आप function(X) रूप data.frame सबसेट पास करके एक समारोह के तर्कों को समायोजित कर सकते हैं:

by(data.frame, data.frame$group, function(X) seqdplot(X, title=X$group[1]))