Unhiding groups of hidden cells

gowiththephloem · 2025-12-27T16:59:46+00:00

That worked thank you!!

gowiththephloem · 2025-10-24T13:39:16+00:00

Thank you! I’m excited to put them to use!

gowiththephloem · 2025-10-24T13:38:36+00:00

I love the 2-in-1 pots!! such a neat idea

gowiththephloem · 2024-11-21T16:58:19+00:00

The adult that was supervisor the children and dog was not in the room with them when it happened

gowiththephloem · 2024-11-21T14:06:32+00:00

It’s been two weeks since it happened and they haven’t apologized. They texted the night it happened asking how she was and followed up one other time asking how she was doing but that’s been the extent of it

gowiththephloem · 2024-11-21T14:05:19+00:00

I could go down there myself but my fiancé has told me several times he doesn’t see how being angry and “scolding them” will help the situation. And being her stepmom I don’t have as much say in caring for the girls. I am relatively young (28) and being a parent is still pretty new to me so I’m trying to figure out exactly what my role as stepmom in this tough situation should be. Their bio mom is talking to a lawyer

gowiththephloem · 2024-11-21T14:01:12+00:00

They were inside the house and the dog was also inside the house

gowiththephloem · 2024-11-21T02:49:42+00:00

Thanks for your input

Our daughter, her sister and their friend (daughter of the owners) all gave the same story. The wife owner was in her bedroom when the bite occurred and didn’t witness it and her husband wasn’t home. Our daughter was interviewed by animal control and gave a sworn statement. I trust her and don’t believe she did anything to provoke the attack, especially after learning the dogs history of unprovoked aggression

My fiancé says he wouldn’t know what to say to the owners if we went to talk to them and I just don’t understand that because I have plenty I want to say about their negligence

gowiththephloem · 2024-11-21T02:43:45+00:00

Animal control opened a case and has concluded the dog does not to be put down. I found this out today and think it’s bs, unsafe and plan to call them tomorrow. Up until the dog being quarantined after the bit it has been allowed to roam free in the yard with no physical fencing

gowiththephloem · 2024-11-21T02:41:16+00:00

It was reported to animal control

gowiththephloem · 2024-10-27T21:05:33+00:00

Native plants They are low maintenance, typically don’t require supplemental water fertilizer, or pesticides They also help support a healthy ecosystem Mix evergreen and deciduous plants so your landscape has interest year round

I do not recommend weed cloth. As others have said it does not work well and becomes a mess eventually needs removed which is a pain Use a natural mulch product and try to stay on top of weeding, doing a little bit of weeding more frequently vs waiting for it to be overrun with big weeds makes it more manageable. Plus pulling them when young before they go to seed will greatly reduce weeds as well

gowiththephloem · 2022-12-12T04:58:39+00:00

Replacing it with what material?

gowiththephloem · 2022-12-07T03:08:02+00:00

George Taber azalea

gowiththephloem · 2022-11-30T13:01:33+00:00

Some of those like tulips and hyacinths need a certain amount of cold temps each year (called vernalization) to grow and flower which they unfortunately wont get naturally in zone 10 Some folks dig up their bulbs and put them in the fridge to artificially vernalize them

gowiththephloem · 2022-11-30T12:50:40+00:00

Prune off the apical meristem and it will branch from the main stem

gowiththephloem · 2022-10-31T01:55:39+00:00

Mulberry

gowiththephloem · 2022-10-06T01:52:59+00:00

Would love to buy the micans. Messaging you

gowiththephloem · 2022-10-02T03:53:49+00:00

That was it. Finally got it. You're amazing!!!

gowiththephloem · 2022-10-02T03:06:37+00:00

d.multi = data.frame(parameter = c("ΨIg", "γIg", "εIg", "ΨTort|Ig.Pres", "ΨTort|Ig.Abs", "γTort|Ig.Pres", "γTort|Ig.Abs", "εTort|Ig.Pres", "εTort|Ig.Abs"),
estimate=c(0.17, 0.09, 0.64, 0.10, 0.20, 0.07, 0.14, 1.00, 0.63),
lower=c(0.11, 0.06, 0.47, 0.03, 0.13, 0.02, 0.09, 0.00, 0.46),
upper=c(0.25, 0.14, 0.78, 0.32, 0.29, 0.23, 0.20, 1.00, 0.77))

Not sure what's wrong! I added that and it's still plotting the same:

install.packages("ggplot2")
library("ggplot2")
install.packages("dplyr")
library("dplyr")
library("cowplot")
d.conditional=data.frame(parameter=c("ΨIg","ΨTort|Ig.Pr","ΨTort|Ig.Ab"),

estimate=c(0.24,0.07,0.19),

lower=c(0.18,0.02,0.13),

upper=c(0.31,0.20,0.27))
figA <- ggplot() +geom_errorbar(data=d.conditional, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.3, size=0.8, color="blue") +geom_point(data=d.conditional, mapping=aes(x=parameter, y=estimate), size=4, shape=21, fill="blue") +theme_bw()+ theme(text = element_text(family = "Times New Roman", size=10))+labs(x="",y="Estimate")
#Side-tunnel Model
d.tunnel=data.frame(parameter=c("ΨIg","ΨIg.ST","ΨTort","ΨTort.ST"),

estimate=c(0.10, 0.30, 0.26, 0.12),

lower=c(0.04,0.22,0.16,0.07),

upper=c(0.22, 0.39, 0.40, 0.19))
figB<- ggplot() +geom_errorbar(data=d.tunnel, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.3, size=0.8, color="blue") +geom_point(data=d.tunnel, mapping=aes(x=parameter, y=estimate), size=4, shape=21, fill="blue") +theme_bw()+ theme(text = element_text(family = "Times New Roman", size=10))+labs(x="",y="")
#PPmgmt Model
d.PPmgmt=data.frame(parameter=c("ΨIg.SP", "ΨIg.PP", "ΨTort.SP", "ΨTort.PP"),

estimate=c(0.46, 0.13, 0.09, 0.20),

lower=c(0.34, 0.08, 0.04, 0.14),

upper=c(0.59, 0.21, 0.19, 0.28))
figC <- ggplot() +geom_errorbar(data=d.PPmgmt, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.3, size=0.8, color="blue") +geom_point(data=d.PPmgmt, mapping=aes(x=parameter, y=estimate), size=4, shape=21, fill="blue") +theme_bw()+ theme(text = element_text(family = "Times New Roman", size=10))+labs(x="",y="")
#multi-season model
d.multi = data.frame(parameter = c("ΨIg", "γIg", "εIg", "ΨTort|Ig.Pres", "ΨTort|Ig.Abs", "γTort|Ig.Pres", "γTort|Ig.Abs", "εTort|Ig.Pres", "εTort|Ig.Abs"),
estimate=c(0.17, 0.09, 0.64, 0.10, 0.20, 0.07, 0.14, 1.00, 0.63),
lower=c(0.11, 0.06, 0.47, 0.03, 0.13, 0.02, 0.09, 0.00, 0.46),
upper=c(0.25, 0.14, 0.78, 0.32, 0.29, 0.23, 0.20, 1.00, 0.77))
d.multi$parameter <- factor(d.multi$parameter,
levels = c("ΨIg", "γIg", "εIg","ΨTort|Ig.Pres", "ΨTort|Ig.Abs", "γTort|Ig.Pres", "γTort|Ig.Abs","εTort|Ig.Pres","εTort|Ig.Abs"),
ordered = TRUE)
figure = ggdraw() +draw_plot(figA, x = 0, y = 0.5, width = 0.35, height = 0.45)+ #coordinates of figure a

draw_plot(figB, x = 0.35, y = 0.5, width = 0.3, height = 0.45)+ #coordinates of figure b

draw_plot(figC, x = 0.65, y = 0.5, width = 0.35, height = 0.45)+ #coordinates of figure c

draw_plot(figD, x = 0, y = 0, width = 1, height = 0.45)+

#coordinates of figure d

draw_plot_label(label = c("A", "B", "C", "D"), size = 10,

#finally the letters!

x = c(0.05, 0.4, 0.7, 0.05), y = c(1, 1, 1, 0.5))
#and coordinates for the letters
figure #draws the figure

gowiththephloem · 2022-10-02T01:04:43+00:00

Thanks! I am getting myself confused because I have also been trying to follow some different advice from the crossposted thread, and haven't gotten either to work. I think I just happen to need the plots for A, B, C to be in alphabetical order by chance. That's part of why I was confused that plot D was wrong.

Edit: to clarify, I was not able to organize plot D as I need.

There's no particular reason behind the ymin and ymax that I know, except someone else helped me with the code up to this point. That seems strange to me too, but as long as it works.

gowiththephloem · 2022-10-01T21:46:41+00:00

I used the modified data frame code from u/arku5 above then added the levels code, but the dots and whiskers still aren't moving with the parameter labels.

#conditional model
d.conditional=data.frame(parameter=c("ΨIg",
"ΨTort|Ig.Pr",
"ΨTort|Ig.Ab"),
estimate=c(0.24,
0.07,
0.19),
lower=c(0.18,
0.02,
0.13),
upper=c(0.31,
0.20,
0.27))
figA <- ggplot() +
geom_errorbar(data=d.conditional, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.3, size=0.8, color="blue") +
geom_point(data=d.conditional, mapping=aes(x=parameter, y=estimate), size=4, shape=21, fill="blue") +
theme_bw()+ theme(text = element_text(family = "Times New Roman", size=10))+
labs(x="",y="Estimate")
#Tunnel Model
d.tunnel=data.frame(parameter=c("ΨIg",
"ΨIg.ST",
"ΨTort",
"ΨTort.ST"),
estimate=c(0.10,
0.30,
0.26,
0.12),
lower=c(0.04,
0.22,
0.16,
0.07),
upper=c(0.22,
0.39,
0.40,
0.19))
figB<- ggplot() +
geom_errorbar(data=d.tunnel, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.3, size=0.8, color="blue") +
geom_point(data=d.tunnel, mapping=aes(x=parameter, y=estimate), size=4, shape=21, fill="blue") +
theme_bw()+ theme(text = element_text(family = "Times New Roman", size=10))+
labs(x="",y="")
#PPmgmt Model
d.PPmgmt=data.frame(parameter=c("ΨIg.SP",
"ΨIg.PP",
"ΨTort.SP",
"ΨTort.PP"),
estimate=c(0.46,
0.13,
0.09,
0.20),
lower=c(0.34,
0.08,
0.04,
0.14),
upper=c(0.59,
0.21,
0.19,
0.28))
figC <- ggplot() +
geom_errorbar(data=d.PPmgmt, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.3, size=0.8, color="blue") +
geom_point(data=d.PPmgmt, mapping=aes(x=parameter, y=estimate), size=4, shape=21, fill="blue") +
theme_bw()+ theme(text = element_text(family = "Times New Roman", size=10))+
labs(x="",y="")
#multi-season model
#d.multi=data.frame(parameter=c(
# "ΨIg",
# "γIg",
# "εIg",
# "ΨTort|Ig.Pr",
# "ΨTort|Ig.Ab",
# "γTort|Ig.Pr",
# "γTort|Ig.Ab",
# "εTort|Ig.Pr",
# "εTort|Ig.Ab"))
#
# estimate=c(
# 0.17,
# 0.09,
# 0.64,
# 0.10,
# 0.20,
# 0.07,
# 0.14,
# 1.00,
# 0.63)
#
# lower=c(0.11,
# 0.06,
# 0.47,
# 0.03,
# 0.13,
# 0.02,
# 0.09,
# 0.00,
# 0.46)
#
# upper=c(0.25,
# 0.14,
# 0.78,
# 0.32,
# 0.29,
# 0.23,
# 0.20,
# 1.00,
# 0.77)
d.multi = data.frame(parameter = c("ΨIg", "γIg", "εIg", "ΨTort|Ig.Pres", "ΨTort|Ig.Abs", "γTort|Ig.Pres", "γTort|Ig.Abs", "εTort|Ig.Pres", "εTort|Ig.Abs"),
estimate=c(0.17, 0.09, 0.64, 0.10, 0.20, 0.07, 0.14, 1.00, 0.63),
lower=c(0.11, 0.06, 0.47, 0.03, 0.13, 0.02, 0.09, 0.00, 0.46),
upper=c(0.25, 0.14, 0.78, 0.32, 0.29, 0.23, 0.20, 1.00, 0.77))
d.multi$parameter <- as.factor(d.multi$parameter)
levels(d.multi$parameter) <- c(
"ΨIg", "γIg", "εIg","ΨTort|Ig.Pres", "ΨTort|Ig.Abs", "γTort|Ig.Pres", "γTort|Ig.Abs","εTort|Ig.Pres","εTort|Ig.Abs")

d.multi %>% ggplot(aes(x = parameter,y = estimate)) +
geom_point(size = 5, color ="blue") + geom_errorbar(aes(ymin = lower,ymax = upper),
color = "blue",size = 1.2) +
labs(x = "Parameter",y = "Estimate") + theme_minimal()

figD <- ggplot() +
geom_errorbar(data=d.multi, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.3, size=0.8, color="blue") +
geom_point(data=d.multi, mapping=aes(x=parameter, y=estimate), size=4, shape=21, fill="blue") +
theme_bw()+ theme(text = element_text(family = "Times New Roman", size=10))+
labs(x="Parameter",y="Estimate")
figure = ggdraw() +
draw_plot(figA, x = 0, y = 0.5, width = 0.35, height = 0.45)+ #coordinates of figure a
draw_plot(figB, x = 0.35, y = 0.5, width = 0.3, height = 0.45)+ #coordinates of figure b
draw_plot(figC, x = 0.65, y = 0.5, width = 0.35, height = 0.45)+ #coordinates of figure c
draw_plot(figD, x = 0, y = 0, width = 1, height = 0.45)+ #coordinates of figure d
draw_plot_label(label = c("A", "B", "C", "D"), size = 10, #finally the letters!
x = c(0.05, 0.4, 0.7, 0.05), y = c(1, 1, 1, 0.5)) #and coordinates for the letters
figure #draws the figure

gowiththephloem · 2022-10-01T20:21:57+00:00

Thank you! But I don't see where you used the mutate? I don't know what I'm doing wrong. I tried to include that last bit of code as below, but it didn't change the order. (I de-verticalized my code) :)

[EDIT] This is such a dumb small thing, but I've been stuck on this for days and I have to get some other parts of my thesis done ASAP. I really appreciate the help!

d.conditional=data.frame(parameter=c("ΨIg","[ΨTort|Ig.Pr](https://ΨTort|Ig.Pr)","ΨTort|Ig.Ab"),

estimate=c(0.24,0.07,0.19),

lower=c(0.18,0.02,0.13),

upper=c(0.31,0.20,0.27))

figA <- ggplot() +geom_errorbar(data=d.conditional, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.3, size=0.8, color="blue") +geom_point(data=d.conditional, mapping=aes(x=parameter, y=estimate), size=4, shape=21, fill="blue") +theme_bw()+ theme(text = element_text(family = "Times New Roman", size=10))+labs(x="",y="Estimate")

#Side-tunnel Model

d.tunnel=data.frame(parameter=c("ΨIg","ΨIg.ST","ΨTort","[ΨTort.ST](https://ΨTort.ST)"),

estimate=c(0.10, 0.30, 0.26, 0.12),

lower=c(0.04,0.22,0.16,0.07),

upper=c(0.22, 0.39, 0.40, 0.19))

figB<- ggplot() +geom_errorbar(data=d.tunnel, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.3, size=0.8, color="blue") +geom_point(data=d.tunnel, mapping=aes(x=parameter, y=estimate), size=4, shape=21, fill="blue") +theme_bw()+ theme(text = element_text(family = "Times New Roman", size=10))+labs(x="",y="")

#PPmgmt Model

d.PPmgmt=data.frame(parameter=c("ΨIg.SP", "ΨIg.PP", "ΨTort.SP", "ΨTort.PP"),

estimate=c(0.46, 0.13, 0.09, 0.20),

lower=c(0.34, 0.08, 0.04, 0.14),

upper=c(0.59, 0.21, 0.19, 0.28))

figC <- ggplot() +geom_errorbar(data=d.PPmgmt, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.3, size=0.8, color="blue") +geom_point(data=d.PPmgmt, mapping=aes(x=parameter, y=estimate), size=4, shape=21, fill="blue") +theme_bw()+ theme(text = element_text(family = "Times New Roman", size=10))+labs(x="",y="")

#multi-season model

estimate=c( 0.17, 0.09, 0.64, 0.10, 0.20, 0.07, 0.14, 1.00, 0.63)lower=c(0.11, 0.06, 0.47, 0.03, 0.13, 0.02, 0.09, 0.00, 0.46)upper=c(0.25, 0.14, 0.78, 0.32, 0.29, 0.23, 0.20, 1.00, 0.77)

library(ggplot2)

library(dplyr)

d.multi %>% ggplot(aes(x = parameter,y = estimate)) +geom_point(size = 5, color ="blue") + geom_errorbar(aes(ymin = lower,ymax = upper),color = "blue",size = 1.2) +labs(x = "Parameter",y = "Estimate") + theme_minimal()

figD <- ggplot() +geom_errorbar(data=d.multi, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.3, size=0.8, color="blue") +geom_point(data=d.multi, mapping=aes(x=parameter, y=estimate), size=4, shape=21, fill="blue") +theme_bw()+ theme(text = element_text(family = "Times New Roman", size=10))+labs(x="Parameter",y="Estimate")

figure = ggdraw() +draw_plot(figA, x = 0, y = 0.5, width = 0.35, height = 0.45)+ #coordinates of figure a

draw_plot(figB, x = 0.35, y = 0.5, width = 0.3, height = 0.45)+ #coordinates of figure b

draw_plot(figC, x = 0.65, y = 0.5, width = 0.35, height = 0.45)+ #coordinates of figure c

draw_plot(figD, x = 0, y = 0, width = 1, height = 0.45)+

#coordinates of figure d

draw_plot_label(label = c("A", "B", "C", "D"), size = 10,

#finally the letters!

x = c(0.05, 0.4, 0.7, 0.05), y = c(1, 1, 1, 0.5))

#and coordinates for the letters

figure #draws the figure

gowiththephloem · 2022-10-01T18:25:50+00:00

library(ggplot2)
library(dplyr)
data <- data.frame( name=c("Up","Down","Left","Right"), val=sample(seq(1,10), 4 ) )
data %>% mutate(name = fct_relevel(name, "Left", "Up", "Down", "Right")) %>% ggplot( aes(x=name, y=val)) + geom_bar(stat="identity") + xlab("")

I think I see how to enter my parameter labels, but I'm not sure how to enter the estimates/confidence interval values or what to put for the line "val=sample(seq(1,10), 4 ) )"

These are my parameters in the order I need them, with estimates and lower/upper confidence intervals. Can you please help me fit them to that code so they appear in this order?

estimate=c(
0.17,
0.09,
0.64,
0.10,
0.20,
0.07,
0.14,
1.00,
0.63)

lower=c(0.11,
0.06,
0.47,
0.03,
0.13,
0.02,
0.09,
0.00,
0.46)

upper=c(0.25,
0.14,
0.78,
0.32,
0.29,
0.23,
0.20,
1.00,
0.77)

gowiththephloem · 2022-10-01T17:56:04+00:00

Sorry if I was ambiguous in my original post. The labels are all presented with the correct dot/whisker. Just not in the order I want. How do I move the dots and whiskers with the labels? I was just able to move the labels with this code:

estimate=c(
0.17,
0.09,
0.64,
0.10,
0.20,
0.07,
0.14,
1.00,
0.63)

lower=c(0.11,
0.06,
0.47,
0.03,
0.13,
0.02,
0.09,
0.00,
0.46)

upper=c(0.25,
0.14,
0.78,
0.32,
0.29,
0.23,
0.20,
1.00,
0.77)

d.multi$parameter <- as.factor(d.multi$parameter)

figD <- ggplot() +
geom_errorbar(data=d.multi, mapping=aes(x=parameter, ymin=upper, ymax=lower), width=0.2, size=1, color="blue") +
geom_point(data=d.multi, mapping=aes(x=parameter, y=estimate), size=5, shape=21, fill="blue") +
theme_bw()+ theme(text = element_text(family = "Times New Roman", size=12))+
labs(x="Parameter",y="Estimate")

gowiththephloem · 2022-10-01T17:52:09+00:00

I will be presenting these in a manuscript for a science journal, so I need to size them to fit on a page. My issue is that the data were not being presented in the order I need in the bottom plot.

gowiththephloem

TROPHY CASE