Используйте subset () для поднабора данных. Одна из модификаций состоит в том, чтобы получить именно то, что ваш график меняет метод на 'auto' в stat_smooth, чтобы линия следовала за точками данных. График не может быть всегда таким же, как мы делаем случайную выборку.
library(ggplot2)
df<-diamonds[sample(nrow(diamonds),50000),]
subset(df,cut%in%c("Fair","Ideal"))->df_fair_ideal
ggplot(df_fair_ideal,aes(x=log(carat),y=log(price),color=cut),alpha=0.5)+
labs(title = 'Regression line for Fair and Ideal Cut Diamonds') +
geom_point()+xlim(min(log(df_fair_ideal$carat)),max(log(df_fair_ideal$carat)))+
stat_smooth(method = "auto",se=T)
Установите Высоту TextBlock для верхнего уровня для установки двум строкам. Установите TextWrapping для Обертывания и TextTrimming к CharacterEllipsis или WordEllipsis.
Для шрифта Segoe UI 12Pt по умолчанию я нахожу, что это делает это
<TextBlock TextWrapping="Wrap" Height="40" TextTrimming="CharacterEllipsis" />
Вы могли, вероятно, сделать некоторый код позади для разработки высоты, которой это должно быть быть для конкретного шрифта, если Вы хотите.
Это не стандартное поведение, которое я когда-либо находил, но снова я не искал его.
Одна возможность состоит в том, чтобы использовать моноширинный шрифт в управлении TextArea, и затем если строка больше, чем однако много символов помещаются в область, только отображают правильные символы N с замещающими знаками