Добавьте название сюжета в ggvis

Я хочу добавить заголовок к графику ggvis. Нигде не могу найти пример. Это просто сделать с другими графиками R, например.

library(ggplot2)
library(ggvis)
x <- 1:10
y <- x^2
df <- data.frame(x, y)

plot(x, y, main = "Plot Title")  # Base R with title
ggplot(df, aes(x, y)) + geom_point() + ggtitle("Plot Title")  # ggplot2 with title
df %>% ggvis(~x, ~y) %>% layer_points()  # ggvis but no title??

Такое ощущение, что я упускаю что-то очевидное. Любая помощь приветствуется.


r title ggvis
person Anto    schedule 29.07.2014    source источник

Ответы (3)


arrow_upward
34
arrow_downward

Ну, похоже, это еще не реализовано (или не задокументировано?). Я почти уверен, что это будет добавлено в ближайшее время. На данный момент вы можете использовать такой грязный хак:

df %>% ggvis(~x, ~y) %>% layer_points() %>% 
  add_axis("x", title = "X units") %>%
  add_axis("x", orient = "top", ticks = 0, title = "Plot Title",
           properties = axis_props(
             axis = list(stroke = "white"),
             labels = list(fontSize = 0)))

Кроме того, если вы хотите использовать этот хак несколько раз, вы можете создать для него сокращение.

add_title <- function(vis, ..., x_lab = "X units", title = "Plot Title") 
{
  add_axis(vis, "x", title = x_lab) %>% 
    add_axis("x", orient = "top", ticks = 0, title = title,
             properties = axis_props(
               axis = list(stroke = "white"),
               labels = list(fontSize = 0)
             ), ...)
}
df %>% ggvis(~x, ~y) %>% layer_points() %>% add_title() #same as before
df %>% ggvis(~x, ~y) %>% layer_points() %>% add_title(title = "Hello", x_lab = "ton")

Редактировать:

Теперь вы можете установить и основной заголовок, и метку оси X одновременно, исправив упомянутое ниже перекрытие.

person tonytonov    schedule 30.07.2014
comment
Спасибо Тони. Иногда хаки могут доставить больше проблем, чем пользы, но это здорово! - person Anto; 31.07.2014
comment
Добро пожаловать! Я постараюсь не забыть обновить этот пост, как только появится более элегантное нативное решение. - person tonytonov; 01.08.2014
comment
К сожалению, этот хак несовместим с установкой метки на реальной оси X. Ниже показано, что метка оси x перекрывает исходную метку wt, когда используется add_title(). Похоже на ошибку в ggvis. mtcars %>% ggvis(~wt, ~mpg) %>% layer_points() %>% add_axis("x", title = "long axis label") %>% add_title(title = "Any Title") - person Chris Warth; 21.10.2014
comment
@ChrisWarth Попробуйте предложенное мной исправление, похоже, оно работает. - person tonytonov; 23.10.2014
comment
@dsh Несмотря на то, что предложенное вами изменение было отклонено рецензентами, оно было действительно полезным. Я обновил ответ и убедился, что он работает, хотя я пропустил спецификацию type = , поскольку она избыточна (поддерживается первым примером в ?add_axis). В любом случае, просто хотел поблагодарить за ваши усилия и содержательное объяснение редактирования. - person tonytonov; 13.01.2015
comment
@tonytonov Есть идеи, как я могу написать заголовок в две отдельные строки? Особенно, когда у меня очень длинный заголовок. - person HNSKD; 06.09.2016
comment
Похоже, он еще не реализован. Обходной путь: добавьте еще одну ось и установите title_offset, например. до 10. - person tonytonov; 06.09.2016

arrow_upward
5
arrow_downward

Кроме того, чтобы изменить размер шрифта заголовка, используйте этот код (адаптированный из ответа @tonytonov):

add_title <- function(vis, ..., x_lab = "X units", title = "Plot Title") 
{
  add_axis(vis, "x", title = x_lab) %>% 
    add_axis("x", orient = "top", ticks = 0, title = title,
             properties = axis_props(
               axis = list(stroke = "white"),
               title = list(fontSize = 32),
               labels = list(fontSize = 0)
             ), ...)
}
person resamsel    schedule 05.02.2015

arrow_upward
3
arrow_downward

Я обновил ответ @tonytonov, чтобы он не мешал оси X по умолчанию. Он по-прежнему реализован как ось, но реализует свою собственную шкалу «заголовка» и правильно объединяет заданные пользователем свойства заголовка, такие как размер шрифта и цвет, со свойствами по умолчанию, необходимыми для того, чтобы сделать ось невидимой. Эта версия скрывает ось без указания определенного цвета фона. За функцией следуют три примера.

library(ggvis)

# ggvis lacks a plot title function, so add one.
# based on clever hack by tonytonov
# http://stackoverflow.com/a/25030002/1135316
add_title <- function(vis, ..., properties=NULL, title = "Plot Title") 
{
    # recursively merge lists by name
    # http://stackoverflow.com/a/13811666/1135316
    merge.lists <- function(a, b) {
        a.names <- names(a)
        b.names <- names(b)
        m.names <- sort(unique(c(a.names, b.names)))
        sapply(m.names, function(i) {
                   if (is.list(a[[i]]) & is.list(b[[i]])) merge.lists(a[[i]], b[[i]])
                   else if (i %in% b.names) b[[i]]
                   else a[[i]]
               }, simplify = FALSE)
    }

    # default properties make title 'axis' invisible
    default.props <- axis_props(
        ticks = list(strokeWidth=0),
        axis = list(strokeWidth=0),
        labels = list(fontSize = 0),
        grid = list(strokeWidth=0)
        )
    # merge the default properties with user-supplied props.
    axis.props <- do.call(axis_props, merge.lists(default.props, properties))

    # don't step on existing scales.
    vis <- scale_numeric(vis, "title", domain = c(0,1), range = 'width')
    axis <- ggvis:::create_axis('x', 'title', orient = "top",  title = title, properties = axis.props, ...)
    ggvis:::append_ggvis(vis, "axes", axis)
}

# add title with default X axis.
iris %>% 
  ggvis(x = ~Petal.Width) %>% 
  layer_points(y = ~Petal.Length, fill = ~Species) %>%
  add_title(title = "Petal.Width vs. Petal.Length")

# Add title with overridden X axis
iris %>% 
  ggvis(x = ~Petal.Width) %>% 
  layer_points(y = ~Petal.Length, fill = ~Species) %>%
  add_axis("x", title = "X-axis!!!!", title_offset=40,
           properties = axis_props(title=list(fontSize=16),
               labels = list(fontSize = 12))) %>%
  add_title(title = "Petal.Width vs. Petal.Length")

# Change the font size of the title.
iris %>% 
  ggvis(x = ~Petal.Width) %>% 
  layer_points(y = ~Petal.Length, fill = ~Species) %>%
  add_title(title = "Petal.Width vs. Petal.Length",
            properties = axis_props(title=list(fontSize=20)))
person Chris Warth    schedule 28.06.2016