Thank you for the example.
Here is a simple function in base graphics that does what you ask for.
You can turn off the default borders and ticks and tick labels and xlab and
ylab,
and add your own x tick labels, and then it will look exactly like the example
you sent.
Rich
expt1 <- data.frame(from=c(1,1,2,2,3,3,4,4),
to=c("A","B","A","B","C","D","C","D"))
expt2 <- data.frame(from=c(1,1,2,2,3,3,4,4),
to=c("A","B","B","C","C","D","D","A"))
DesignGraph <- function(x, pch.from=19, pch.to=19) {
from <- unique(x$from)
to <- unique(x$to)
n.from <- length(from)
n.to <- length(to)
Nrows<- max(1:n.from, 1:n.to)
plot(1 ~ 1, type="n", xlim=c(1-.5, 2+.5), ylim=c(Nrows, 1))
points(x=rep(1, n.from), y=1:n.from, pch=pch.from)
text(x=1-.3, y=1:n.from, labels=from)
points(x=rep(2, n.to), y=1:n.to, pch=pch.to)
text(x=2+.3, y=1:n.to, labels=to)
index.from <- which
index.to <- which
segments(1, match(x$from, from), 2, match(x$to, to))
}
DesignGraph(expt1)
DesignGraph(expt2)
> On Aug 18, 2021, at 10:29, [email protected] wrote:
>
> I have attached a photo from our book
>
> E. Hansen "Introduktion til matematisk statistik"
>
> the numbers represent the labels of one factor while the letters
> represent the labels of anothr factor.
>
> .. Mads
>
>
> On Tue, 2021-08-17 at 22:42 +0000, Richard M. Heiberger wrote:
>> can you post an example of the graph?
>>
>> From: R-help <[email protected]> on behalf of
>> [email protected] <[email protected]>
>> Sent: Tuesday, August 17, 2021 16:02
>> To: [email protected]
>> Subject: [External] [R] Package for "design graphs"
>>
>> Hi,
>>
>> in our course littrature a "design graph" of two factors R and S with
>> associated maps s : I -> S and f : I -> S where I is some finite
>> index
>> set, is a graph with factor labeles as vertices and lines f(i) to
>> s(i)
>> for all observations i in I. Is there a package on CRAN that can draw
>> graphs like this automatically?
>>
>> I haven't been able to find anyting by searching.
>>
>> Regards, Mads
>>
>> ______________________________________________
>> [email protected] mailing list -- To UNSUBSCRIBE and more, see
>> https://nam10.safelinks.protection.outlook.com/?url=https%3A%2F%2Fstat.ethz.ch%2Fmailman%2Flistinfo%2Fr-help&data=04%7C01%7Crmh%40temple.edu%7Cf18619e1691a4333682a08d962549a74%7C716e81efb52244738e3110bd02ccf6e5%7C0%7C0%7C637648937938659341%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000&sdata=0LTywXuQ5Y%2FymuUTKOQeeozEx4MpAnF9QavJBcd4FNE%3D&reserved=0
>> PLEASE do read the posting guide
>> https://nam10.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.r-project.org%2Fposting-guide.html&data=04%7C01%7Crmh%40temple.edu%7Cf18619e1691a4333682a08d962549a74%7C716e81efb52244738e3110bd02ccf6e5%7C0%7C0%7C637648937938659341%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000&sdata=GT1zdL3%2BOAuVkXGGRMysbsfucmiIz6Dqozr6xyNbm8s%3D&reserved=0
>> and provide commented, minimal, self-contained, reproducible code.
> <IMG_0665.JPG>
______________________________________________
[email protected] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
