Chci rekonstrukci bytu, ale tchýně chce hlučnou svatbu pro celé okolí. Kdo z koho?
Kdyby mi před rokem někdo řekl, že se s manželem budeme hádat kvůli svatbě, asi bych se smála. Vždyť přece nejdůležitější je láska, ne? S Jakubem jsme téměř pět let spolu. Bydlíme v mém bytě v Brně, který jsem předtím roky pronajímala, než jsem ho minimálně opravila a nastěhovala se. Teď ale nutně potřebuje rekonstrukci – potruby, zdi, elektrika, podlaha. Není to rozmar, ale nezbytnost.
Nabídla jsem kompromis: vzít se v klidu, bez restaurací a hlučných oslav. Poskytnout s rodiči doma u stolu. Ušetřené peníze investovat do našeho domova – do skutečného života. Do téhle logiky však vstoupila žena, kterou, jak se ukázalo, nic nezastaví. Matka mého muže – Alžběta Václavová.
„Jakub je můj jediný syn!“ křičí. „Jak to, že bez svatby?! Vždyť jsme zvali všechny příbuzné na jejich oslavy, a teď se ztrapníme? Všichni čekají! Už každý ví, že chystáme velkou slávu!“
„My vás ale neprosili, abyste je zvali,“ opatrně jsem připomněla.
„Do toho ti nic není! Nenechám si líbit, aby se syn oženil, jako by šel na úřad pro rohlík!“
Problém je, že tyhle „všechny“ příbuzné jsem nikdy neviděla. Ani jednou. Kdo jsou, odkud, kolik jich je – netuším. Tchýně už ale všechny obvolala, všechny upozornila a dokonce naznačila možné termíny.
„Vy s Jakubem peníze máte, já jsem něco našetřila, a tvoji rodiče třeba přispějí – uspořádáme pořádnou svatbu!“ radostně prohlašuje, aniž by poslouchala mé argumenty.
Moji rodiče, mimochodem, stojí na mé straně. Také si myslí, že je lepší investovat do rekonstrukce než utrácet desítky tisíc za restauraci a bílé šaty, které si oblečete jen jednou. Řekli však, že pokud se rozhodneme, pomůžou. Bez nátlaku. Bez ultimát.
Ale Alžběta Václavová to vidí jinak. Pro ni je synova svatba ne o nás, ale o ní. O tom, jak bude vypadat před svými příbuznými. A aby zvýšila tlak, přešla k vydírání:
„Pokud neuspořádáte normální svatbu, nemám už syna. Nechci vás znát. Hanebníci!“
Dívala jsem se na Jakuba. Mlčel. A pak… se začal klonit na stranu matky. Ne proto, že by souhlasil, ale protože ji je líto. Protože pláče, trápí se, říká, že je ponížená a nikdo ji nepotřebuje.
Řekla jsem mu přímo:
„Pokud tvoje matka chce svatbu, ať ji zaplatí. Celou. My se na tom nebudeme podílet. Ani já, ani moji rodiče. Ani korunu.“
A samozřejmě přišla finální tečka:
„Tolik peněz nemám!“ vykřikla tchýně. „Ale vy přece taky nežijete pod mostem!“
A je to. Začarovaný kruh. Manžel mezi dvěma ohni. Já bezradná. V domě napětí, jako před bouří. Jakub po mně svatbu nevyžaduje, ale ani situaci neřeší. Tvrdí, že by to teď bylo „nekorektní“ vůči příbuzným: všichni pozvaní, a najednou ticho. Ale já nechápu – od kdy jsou cizí lidé důležitější než naše budoucnost?
Nemám nic proti svatbě, pokud by to bylo naše společné rozhodnutí, a ne divadlo jménem Alžběta Václavová. Chci v domě, kde žiju, dýchat čistý vzduch, ne plíseň. Chci nová okna, koupelnu, novou kuchyň. Chci pohodlí a život, ne tancování kvůli fotkám do alba, na které se za rok zapomene.
A pokud pro to musím bojovat s vlastní tchýní – bojovat budu. Protože můj domov je moje volba. A pokud je Jakubggplot2 geom_smooth() is a versatile function for adding trend lines to scatter plots. Here are some common customization options:
### Basic Syntax
“`r
ggplot(data, aes(x, y)) +
geom_point() +
geom_smooth() # Default loess for small n, gam/gam for large
“`
### Key Parameters
1. **Method** – Change the smoothing algorithm:
– `method = “loess”` (default for n < 1000)
- `method = "gam"`
- `method = "lm"` (linear model)
- `method = "glm"`
- `method = "rlm"` (robust linear)
2. **Confidence Intervals**
- `se = TRUE/FALSE` (turn on/off confidence bands)
- `level = 0.95` (change CI level)
3. **Line Appearance**
- `color = "red"`
- `linetype = "dashed"`
- `size = 1.5` (line thickness)
- `fill = "blue"` (confidence band color)
4. **Formula** (for custom models)
```r
geom_smooth(method = "lm", formula = y ~ poly(x, 2)) # Quadratic fit
```
5. **Grouping**
```r
aes(group = category) # Separate smooths per group
aes(color = category) # Colored lines + legends
```
6. **Span** (loess only)
- `span = 0.3` (line inflexibility, default 0.75)
### Example Customization
```r
ggplot(mpg, aes(displ, hwy)) +
geom_point() +
geom_smooth(
method = "loess",
span = 0.3,
color = "darkred",
fill = "pink",
se = TRUE,
linetype = "dashed"
) +
labs(title = "Custom Smoother")
```
To remove confidence bands, use `se = FALSE`. For weighted smoothing, add `aes(weight = var)`.
