Разное

Полоска фон: Фон полосы — 62 фото

14.06.2023

Полосатый фон — 71 фото

Полосатый фон — 71 фото

71 фото

1


Фон в полоску


2

Розовая полоска


3

Черно белые полоски


4

Текстура полоски


5

Паул Смит в полоску


6

Фон в полосочку


7

Синяя полоска


8

Черно белые полоски


9

Фон в полоску


10

Фон в полоску


11



Цветные полоски


12

Бирюзовая полоска


13

Красная полоса


14

Фон в полоску


15

Полосатая абстракция


16

Фон в полоску


17

Фон в полоску


18

Фон в полоску


19

Фон в полоску


20

Фон в полоску


21


Фон в полоску


22

Фон в полоску


23

Вертикальные цветные полосы


24

Фон в полоску


25

Фон в полоску


26

Цветные полоски


27

Черно белые полосы


28

Фон в полоску


29

Голубой фон в полоску


30

Принты полоска


31



Фон в полоску


32

Фон в полосочку


33

Паттерн цветные полоски


34

Фон в полоску


35

Абстрактные полоски


36

Фоны для декупажа полоска


37

Цветной полосатый фон


38

246032 Rasch


39

Цветные полоски


40

Косые полоски


41


Вертикальные цветные полосы


42

Фон в полоску


43

Бело голубая полоска


44

Обои Rasch Textil petite fleur 4 289045


45

Обои в полоску


46

Красно белые полосы


47

Диагональные полоски


48

Фон в полоску


49

Желтый фон с полосками


50

Бирюзовая полоска


51


Фон полосы


52

Фон в полосочку


53

Фон в полоску


54

Косые полоски


55

Фон полосы


56

Принты полоска


57

Красно белая полоска


58

Полосатая текстура


59

Фон в полоску


60

Фон полоски фон


61



Красно белая полоска


62

Цветные полоски


63

Полосатая текстура


64

Синий фон с полосками


65

Полосатая текстура


66

Фон в полоску


67

Фон в полоску


68

Фон в полосочку


69

Фон в полоску


70

Текстура полоски



Полоса на лобовое стекло HONDA (S1, 18х130 см, V2, черный фон)

Полоса на лобовое стекло HONDA (S1, 18х130 см, V2, черный фон)

122.

00 Р

Задать вопрос

Время возврата: 10 дн.

Бонусные баллы: баллов

КОД: 11603

Доступность: 1 шт.

 

  • Описание

Похожие товары

За ту же цену!

117. 00 Р

 

119.00 Р

 

120. 00 Р

 

R ggplot2: изменить цвет шрифта и фона в фасетной полосе?

Хотя на этот вопрос уже давно был дан ответ, я включил функцию, позволяющую легко установить фон, границу и цвет текста отдельных граней на основе предыдущих ответов. Я публикую его на случай, если он поможет кому-то еще.

 библиотека (dplyr)
библиотека (ggplot2)
библиотека (RColorBrewer)

Функция:

 mod_facet_appearance <- function(plot = NULL,
                                    полоса.background.x.fill = NULL,
                                    полоса.background.y.fill = NULL,
                                    полоса.
 
 background.x.col = NULL,
                                    полоса.background.y.col = NULL,
                                    полоса.текст.x.col = NULL,
                                    полоса.текст.y.col = NULL){
  
  if(is.null(plot)){stop("Необходимо указать ggplot (класс gg)!")}
  
  # Генерируем объект gtable для изменения полос фасетов:
  g <- ggplot_gtable (ggplot_build (график))
  
  # Получить расположение правой и верхней граней в g:
  stripy <- which(grepl('strip-r|strip-l', g$layout$name)) # учитывает, когда позиции полос переключаются r-l и/или t-b в facet_grid(switch = )
  stripx <- which(grepl('strip-t|strip-b', g$layout$name))
  
  # Убедитесь, что предоставленные массивы значений имеют ту же длину, что и полосы на графике:
  lx <- c(длина(strip.background.x.fill), длина(strip.background.x.col), длина(strip.text.x.col))
  if(!all(lx==length(stripx) | lx==0)){stop("Предоставленные векторы со значениями должны иметь одинаковую длину и количество граней на графике!")}
  ly <- c(длина(strip.
 
 background.y.fill), длина(strip.background.y.col), длина(strip.text.y.col))
  if(!all(ly==length(stripy) | ly==0)){stop("Предоставленные векторы со значениями должны иметь одинаковую длину и количество граней на графике!")}
  
  # Изменяем полосы по оси Y:
  for (i in seq_along(stripy)){ # если справа нет полос, цикл не будет выполняться, так как seq_along(stripy) будет целым числом(0)
    
    # Изменить заливку полосы и цвет (границы):
    j1 <- which(grepl('strip.background.y', g$grobs[[stripy[i]]]$grobs[[1]]$childrenOrder))
    if(!is.null(strip.background.y.fill[i])){g$grobs[[stripy[i]]]$grobs[[1]]$children[[j1]]$gp$fill < - strip.background.y.fill[i]} # заливка
    if(!is.null(strip.background.y.col[i])){g$grobs[[stripy[i]]]$grobs[[1]]$children[[j1]]$gp$col < - strip.background.y.col[i]} # цвет рамки
    
    # Изменить цвет текста:
    j2 <- which(grepl('strip.text.y', g$grobs[[stripy[i]]]$grobs[[1]]$childrenOrder))
    if(!is.null(strip.text.y.col[i])){g$grobs[[stripy[i]]]$grobs[[1]]$children[[j2]]$children[[1 ]]$gp$col <- strip. text.y.col[i]}
  }
  
  # То же самое, но для оси x:
  для (я в seq_along (полоса)) {
    
    # Изменить заливку полосы и цвет (границы):
    j1 <- which(grepl('strip.background.x', g$grobs[[stripx[i]]]$grobs[[1]]$childrenOrder))
    if(!is.null(strip.background.x.fill[i])){g$grobs[[stripx[i]]]$grobs[[1]]$children[[j1]]$gp$fill < - strip.background.x.fill[i]} # заливка
    if(!is.null(strip.background.x.col[i])){g$grobs[[stripx[i]]]$grobs[[1]]$children[[j1]]$gp$col < - strip.background.x.col[i]} # цвет рамки
    
    # Изменить цвет текста:
    j2 <- which(grepl('strip.text.x', g$grobs[[stripx[i]]]$grobs[[1]]$childrenOrder))
    if(!is.null(strip.text.x.col[i])){g$grobs[[stripx[i]]]$grobs[[1]]$children[[j2]]$children[[1 ]]$gp$col <- strip.text.x.col[i]}
  }
  
  возврат (г)
  
  # Обратите внимание, что он возвращает объект gtable. Это можно построить с помощью plot() или grid::draw.grid().
  # patchwork может обрабатывать добавление такой gtable в макет с другими объектами ggplot,
  # но обязательно используйте patchwork::wrap_ggplot_grob(g) для правильного выравнивания графиков!
  # См. : https://patchwork.data-imaginist.com/reference/wrap_ggplot_grob.html
  
}

Пример:

Функция может быть передана из объекта gg вроде в том же духе, что и добавление + theme() .

 pal.y <- brewer.pal(length(unique(mpg$drv))*2, "Парный")
pal.x <- brewer.pal(length(unique(mpg$cyl))*2, "Парный")
p <- {ggplot(mpg, aes(displ, cty)) +
  геометрическая_точка() +
  facet_grid (привод ~ цилиндр) +
  ggtitle("Как изменить цвет шрифта в фасетной полосе?")} %>%
  mod_facet_appearance (strip.background.x.fill = pal.x [seq (1, длина (pal.x), 2)],
                          strip.background.x.col = pal.x[seq(2, длина(pal.x), 2)],
                          strip.text.x.col = pal.x[seq(2, длина(pal.x), 2)],
                          strip.background.y.fill = pal.y[seq(1, длина(pal.y), 2)],
                          strip.background.y.col = pal.y[seq(2, длина(pal.y), 2)],
                          strip.text.y.col = pal.y[seq(2, длина(pal.y), 2)])
сюжет (р)

r — Как изменить ширину полосы facet_wrap?

Для случаев, когда вам нужно сложить два отдельных графика, вот способ согласования ширины полосы:

  • Загрузите пакет ggtext , который позволяет нам иметь несколько цветов текста в пределах одной метки полосы (с использованием тегов html) .
  • Получить полный текст самой длинной этикетки полосы. Добавьте это как вторую строку к ярлыкам короткой полосы (для этого мы добавим тег html). Этот текст гарантирует, что ширина полосы будет одинаковой на обоих графиках.
  • Однако мы не хотим, чтобы лишняя строка текста была видна. Итак, мы добавим несколько тегов html, чтобы установить цвет этого текста таким же, как цвет фона полосы.
 библиотека (tidyverse)
library(patchwork) # Для макета графика
library(ggtext) # Для нескольких цветов текста в этикетках полос
theme_set (theme_bw())
set.seed(2)
df <- data.frame(shortCat = sample(c('a','b'), 10, replace=TRUE),
                 longCat = sample(c('очень длинная метка','еще одна очень длинная метка'), 10, replace=TRUE),
                 x = образец (seq (as.Date ('2020/01/01'), as.Date ('2020/12/31'), by = "день"), 10),
                 у = образец (0:25, 10, заменить = ИСТИНА) )
# Проверка надежности метода путем изготовления этикеток разной длины
дф = дф %>%
  mutate(shortCat2 = gsub("b", "средняя метка", shortCat))
# Получить текст самой длинной метки
pad = df$longCat[который. max(nchar(df$longCat))]
# Получить цвет фона полосы
txt.col = theme_get()$strip.background$заполнить
# Установите для текста отступа тот же цвет, что и фон, чтобы он был невидим
# (вы можете установить цвет «белый» для визуального подтверждения того, что это делает)
df$shortCat2 = paste0(df$shortCat2, "
", pad ,"")
рисA = df %>%
  ggplot(aes(x=x,y=y)) +
  геометрическая_линия() +
  facet_wrap(vars(shortCat2), ncol=1, strip.position="right", scales="free_y") +
  тема (ось.название.y=element_blank(),
        ось.название.х=элемент_пусто(),
        ось.текст.х=элемент_пустой(),
        axis.ticks.x=element_blank(),
        strip.text.y=element_textbox())
рисА / рисБ

Вот еще один подход, в котором мы добавляем пробелы, чтобы расширить метки полосы до желаемой ширины. Для него требуется моноширинный шрифт, что делает его менее гибким, но он не требует использования тегов html, как в предыдущем методе.

 # Определение моноширинных шрифтов в вашей системе
шрифты = системные шрифты:: system_fonts()
шрифты %>% filter(monospace) %>% pull(name)
#> [1] "Menlo-Bold" "Courier-Oblique"
#> [3] "Courier-BoldOblique" "AppleBraille"
#> [5] «AppleBraille-Pinpoint8Dot» «AndaleMono»
#> [7] "Menlo-BoldItalic" "Menlo-Regular"
#> [9] «CourierNewPS-BoldMT» «AppleBraille-Outline6Dot»
#> [11] "GB18030Bitmap" "Монако"
#> [13] "AppleBraille-Outline8Dot" "PTMono-Regular"
#> [15] "PTMono-Bold" "AppleColorEmoji"
#> [17] "Menlo-Italic" "CourierNewPS-ItalicMT"
#> [19] "Курьер" "Курьер-жирный"
#> [21] "CourierNewPSMT" "AppleBraille-Pinpoint6Dot"
#> [23] "CourierNewPS-BoldItalicMT"
# Установите тему для использования моноширинного шрифта
theme_set (theme_bw() +
 тема (текст = element_text (семья = "Menlo-Regular")))
figA <- df %>%
 мутировать (shortCat = paste0 (shortCat,
 вставить (rep (" ", max (nchar (longCat)) - 1), свернуть = ""))
 ) %>%
 ggplot(aes(x=x,y=y)) +
 геометрическая_линия() +
 facet_wrap(vars(shortCat), ncol=1, strip.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *