Question

我为出版质量数据创建了这个主题函数：

<html>

<head>
  <title>test</title>
  <style type="text/css">
    #navigationbar {
      position: relative;
      padding: 0;
      margin: 0;
      height: 30px;
      width: 90%;
    }
    #navigationbar ul {
      position: absolute;
      margin: 0;
      padding: 0;
      height: 100%;
      width: 100%;
      list-style-type: none;
      background-color: #eeeeee;
      overflow: visible;
    }
    #navigationbar ul>li {
      display: block;
      float: left;
      height: auto;
      width: 130px;
    }
    #navigationbar li>a {
      display: block;
      height: 100%;
      padding: 0 0 0 10px;
      width: 115px;
      border-right: 1px black solid;
      font-size: 17px;
      font-family: sans-serif;
      background-color: #eeeeee;
      color: #5d5636;
      line-height: 30px;
      text-decoration: none;
    }
    #navigationbar ul ul {
      margin-top: 2px;
      display: none;
      width: 160px;
      height: auto;
      background-color: #dddddd;
      border: 1px #666666 solid;
    }
    #navigationbar ul ul li {
      position: relative;
      float: none;
      display: block;
      height: 28px;
      width: 100%;
      border: none;
    }
    #navigationbar ul ul li>a {
      height: 100%;
      width: 96%;
      padding: 0 0 0 4%;
      line-height: 28px;
      background-color: transparent;
      border: none;
      color: #000000;
      font-size 12px;
      font-style: normal;
    }
    #navigationbar li:hover > a {
      color: #220000;
      background-color: #eeeabe;
    }
    #navigationbar li:hover > ul {
      display: block;
    }
  </style>
</head>

<body>
  <h1>Nagłówek</h1>
  <nav id="navigationbar">
    <ul>
      <li><a href="/home.html">Home</a>
      </li>
      <li><a href="/AAAtest.html">A</a>
        <ul>
          <li><a href=/a.html>aaaaa</a>
          </li>
          <li><a href=/b.html>bbbbb</a>
          </li>
          <li><a href=/c.html>ccccc</a>
          </li>
        </ul>
      </li>
      <li><a href="/BBBtest.html">B</a>
        <ul>
          <li><a href=/aa.html>AAAA</a>
          </li>
          <li><a href=/bb.html>BBBBB</a>
          </li>
          <li><a href=/cc.html>CCCCC</a>
          </li>
        </ul>
      </li>
    </ul>
  </nav>
</body>

</html>

我用它来绘制：

theme_new <- function(base_size = 18, base_family = "Helvetica"){
  theme_bw(base_size = base_size, base_family = base_family) %+replace%
    theme(
      #Background elements
      panel.background = element_rect(fill = "white", colour = "black"), 
      panel.grid.major =  element_line(colour="#f0f0f0"),   
      panel.grid.minor = element_blank(),   
      panel.border = element_rect(fill = NA, colour = "black", size=1),

      plot.title = element_text(face="bold", size=rel(1.2), hjust=0.5, vjust=2),
      #plot.margin=unit(c(10,5,5,5),"mm"),

      #Axis elements
      axis.title.x = element_text(face="bold", size = rel(1), color="black", vjust=-0.5),
      axis.title.y = element_text(face="bold", size = rel(1), color="black", angle = 90, vjust=2),
      axis.text.x = element_text(size = rel(1), color="black"),
      axis.text.y = element_text(size = rel(1), color="black"),
      axis.ticks.x = element_line(color="black"),
      axis.ticks.y = element_line(color="black"),

      #Legend elements
      legend.position="bottom",
      legend.direction = "horizontal",
      legend.key=element_rect(colour=NA, fill =NA),
      legend.title = element_text(face="italic"),

      strip.background=element_rect(colour="#f0f0f0",fill="#f0f0f0"),
      strip.text = element_text(face="bold")

    )
}

但是我在 vjust 中放置的值似乎不会影响绘图标题的位置以及axis.y标题。我想在边框和这两个标题之间创造更多空间。

dput（d）

ggplot(d, aes(x=log(tp), y=f.ecdf))+
  geom_point()+
  theme_new()+
  ggtitle("test")+
  ggsave("save.png",width=8, height=8,dpi=300)

如何在ggplot2中调整字体和轴标题的垂直间距？

0 个答案: